home *** CD-ROM | disk | FTP | other *** search
/ The Atari Compendium / The Atari Compendium (Toad Computers) (1994).iso / files / prgtools / programm.ing / sources.arc / RR.C < prev    next >
Encoding:
C/C++ Source or Header  |  1994-03-06  |  64.9 KB  |  2,382 lines
  1. /* room record */
  2.  
  3. /* define our templates */
  4. #define CF64    1                 
  5. #define CL       2
  6. #define CR        3
  7. #define ML      4
  8. #define MR      5
  9. #define FL      6
  10. #define FR      7
  11. #define CF1     8
  12. #define CF2     9 
  13. #define CF1_SPECIAL   10
  14. #define CF2_SPECIAL   11
  15. #define MF3211        12
  16. #define MF3212        13
  17. #define MF1611        14
  18. #define MF1612        15
  19. #define MF641        16
  20. #define FF3211        17
  21. #define FF3212        18
  22. #define FF1611        19
  23. #define FF1612        20
  24. #define FF641        21
  25. #define MF3221        22    
  26. #define MF3222        23
  27. #define MF1621        24
  28. #define MF1622        25
  29. #define MF642        26
  30. #define FF3221        27
  31. #define FF3222        28
  32. #define FF1621        29
  33. #define FF1622        30
  34. #define FF642        31
  35. #define ML_GATE       32
  36. #define MR_GATE       33
  37. #define FL_GATE       34
  38. #define FR_GATE       35
  39. #define CL_GATE       36
  40. #define CR_GATE       37
  41. #define REG_R4_FILL   38
  42. #define REG_FAR_FILL  39
  43. #define REG_MED_CLOSE_FILL  40
  44. #define FAR_GATE      41
  45. #define CLOSE_GATE    42
  46. #define EMPTY               0
  47.  
  48.  
  49.  
  50.  
  51. extern struct field_data
  52.     {
  53.     int Field1,
  54.         Field2,
  55.         Field3,
  56.         Field4,
  57.         Field5,
  58.         Field6,
  59.         Field7,
  60.         floor;   /* if 0 user floor 1, if 1 use floor 2 */
  61.     };
  62.  
  63. extern struct pic_data
  64.    {
  65.     struct field_data N,
  66.                       S,
  67.                       E,
  68.                       W;
  69.   
  70.    };
  71.  
  72. extern struct pic_data roomrec[];  /* start at 1.... */
  73.  
  74. /***/
  75. set_up1()
  76. {
  77. /* first define which ways you can go in each room. n,s,e,w, 0 means
  78.   its a wall */
  79.  
  80. /* now define the templates needed when facing a dir in a room */
  81.  
  82.  
  83.  
  84. /********************************************/
  85. roomrec[1].N.Field1=CL;
  86. roomrec[1].N.Field2=CF1;
  87. roomrec[1].N.Field3=CF2_SPECIAL;
  88. roomrec[1].N.Field4=CF64;
  89. roomrec[1].N.Field5=CF2_SPECIAL;
  90. roomrec[1].N.Field6=CF1;
  91. roomrec[1].N.Field7=CF2;
  92. roomrec[1].N.floor=0;
  93. /********************************************/
  94.  
  95. /********************************************/
  96. roomrec[1].S.Field1=CF1;
  97. roomrec[1].S.Field2=ML;
  98. roomrec[1].S.Field3=MF1611;
  99. roomrec[1].S.Field4=MF641;
  100. roomrec[1].S.Field5=MF1612;
  101. roomrec[1].S.Field6=MF3212;
  102. roomrec[1].S.Field7=CR;
  103. roomrec[1].S.floor=0;
  104. /********************************************/
  105.  
  106. /********************************************/
  107. roomrec[1].E.Field1=CL;
  108. roomrec[1].E.Field2=ML;
  109. roomrec[1].E.Field3=FL;
  110. roomrec[1].E.Field4=EMPTY;
  111. roomrec[1].E.Field5=FR;
  112. roomrec[1].E.Field6=MR;
  113. roomrec[1].E.Field7=CF1;
  114. roomrec[1].E.floor=0;
  115. /********************************************/
  116.  
  117. /********************************************/
  118. roomrec[1].W.Field1=REG_MED_CLOSE_FILL;
  119. roomrec[1].W.Field2=CF1;
  120. roomrec[1].W.Field3=CF2;
  121. roomrec[1].W.Field4=CF64;
  122. roomrec[1].W.Field5=CF2;
  123. roomrec[1].W.Field6=CF1;
  124. roomrec[1].W.Field7=CR;
  125. roomrec[1].W.floor=0;
  126. /********************************************/
  127.  
  128. /********************************************/
  129. roomrec[2].N.Field1=CF1;
  130. roomrec[2].N.Field2=CF2;
  131. roomrec[2].N.Field3=CF1_SPECIAL;
  132. roomrec[2].N.Field4=CF64;
  133. roomrec[2].N.Field5=CF2_SPECIAL;
  134. roomrec[2].N.Field6=CF2;
  135. roomrec[2].N.Field7=CF1;
  136. roomrec[2].N.floor=1;
  137. /********************************************/
  138.  
  139. /********************************************/
  140. roomrec[2].S.Field1=CF1;
  141. roomrec[2].S.Field2=CF2;
  142. roomrec[2].S.Field3=CF1_SPECIAL;
  143. roomrec[2].S.Field4=CF64;
  144. roomrec[2].S.Field5=CF1_SPECIAL;
  145. roomrec[2].S.Field6=CF2;
  146. roomrec[2].S.Field7=MF3222;
  147. roomrec[2].S.floor=1;
  148. /********************************************/
  149.  
  150. /********************************************/
  151. roomrec[2].E.Field1=CL;
  152. roomrec[2].E.Field2=ML;
  153. roomrec[2].E.Field3=FL;
  154. roomrec[2].E.Field4=EMPTY;
  155. roomrec[2].E.Field5=FR;
  156. roomrec[2].E.Field6=MR;
  157. roomrec[2].E.Field7=CR;
  158. roomrec[2].E.floor=1;
  159. /********************************************/
  160.  
  161. /********************************************/
  162. roomrec[2].W.Field1=CL;
  163. roomrec[2].W.Field2=REG_MED_CLOSE_FILL;
  164. roomrec[2].W.Field3=MF1621;
  165. roomrec[2].W.Field4=MF642;
  166. roomrec[2].W.Field5=MF1622;
  167. roomrec[2].W.Field6=MR;
  168. roomrec[2].W.Field7=CR;
  169. roomrec[2].W.floor=1;
  170. /********************************************/
  171.  
  172.  
  173. /********************************************/
  174. roomrec[3].N.Field1=CF1;
  175. roomrec[3].N.Field2=CF2;
  176. roomrec[3].N.Field3=CF1_SPECIAL;
  177. roomrec[3].N.Field4=CF64;
  178. roomrec[3].N.Field5=CF2_SPECIAL;
  179. roomrec[3].N.Field6=CF2;
  180. roomrec[3].N.Field7=CF1;
  181. roomrec[3].N.floor=0;
  182. /********************************************/
  183.  
  184. /********************************************/
  185. roomrec[3].S.Field1=CF1;
  186. roomrec[3].S.Field2=CF2;
  187. roomrec[3].S.Field3=CF1_SPECIAL;
  188. roomrec[3].S.Field4=CF64;
  189. roomrec[3].S.Field5=CF1_SPECIAL;
  190. roomrec[3].S.Field6=CF2;
  191. roomrec[3].S.Field7=CF1;
  192. roomrec[3].S.floor=0;
  193. /********************************************/
  194.  
  195. /********************************************/
  196. roomrec[3].E.Field1=CL;
  197. roomrec[3].E.Field2=ML;
  198. roomrec[3].E.Field3=FL;
  199. roomrec[3].E.Field4=FF641;
  200. roomrec[3].E.Field5=FF1612;
  201. roomrec[3].E.Field6=MR;
  202. roomrec[3].E.Field7=CR;
  203. roomrec[3].E.floor=0;
  204. /********************************************/
  205.  
  206. /********************************************/
  207. roomrec[3].W.Field1=CL;
  208. roomrec[3].W.Field2=ML;
  209. roomrec[3].W.Field3=FF1611;
  210. roomrec[3].W.Field4=FF641;
  211. roomrec[3].W.Field5=FR;
  212. roomrec[3].W.Field6=MR;
  213. roomrec[3].W.Field7=CR;
  214. roomrec[3].W.floor=0;
  215. /********************************************/
  216.  
  217.  
  218. /********************************************/
  219. roomrec[4].N.Field1=CF1;
  220. roomrec[4].N.Field2=CF2;
  221. roomrec[4].N.Field3=CF1_SPECIAL;
  222. roomrec[4].N.Field4=CF64;
  223. roomrec[4].N.Field5=CF2_SPECIAL;
  224. roomrec[4].N.Field6=CF2;
  225. roomrec[4].N.Field7=CF1;
  226. roomrec[4].N.floor=1;
  227. /********************************************/
  228.  
  229. /********************************************/
  230. roomrec[4].S.Field1=REG_MED_CLOSE_FILL;
  231. roomrec[4].S.Field2=CF2;
  232. roomrec[4].S.Field3=CF1_SPECIAL;
  233. roomrec[4].S.Field4=CF64;
  234. roomrec[4].S.Field5=CF1_SPECIAL;
  235. roomrec[4].S.Field6=CF2;
  236. roomrec[4].S.Field7=CF1;
  237. roomrec[4].S.floor=1;
  238. /********************************************/
  239.  
  240. /********************************************/
  241. roomrec[4].E.Field1=CL;
  242. roomrec[4].E.Field2=ML;
  243. roomrec[4].E.Field3=MF1621;
  244. roomrec[4].E.Field4=MF642;
  245. roomrec[4].E.Field5=MF1622;
  246. roomrec[4].E.Field6=MF3222;
  247. roomrec[4].E.Field7=CR;
  248. roomrec[4].E.floor=1;
  249. /********************************************/
  250.  
  251. /********************************************/
  252. roomrec[4].W.Field1=CL;
  253. roomrec[4].W.Field2=ML;
  254. roomrec[4].W.Field3=FL;
  255. roomrec[4].W.Field4=EMPTY;
  256. roomrec[4].W.Field5=FR;
  257. roomrec[4].W.Field6=MR;
  258. roomrec[4].W.Field7=CR;
  259. roomrec[4].W.floor=1;
  260. /********************************************/
  261.  
  262.  
  263. /********************************************/
  264. roomrec[5].N.Field1=CF1;
  265. roomrec[5].N.Field2=CF2;
  266. roomrec[5].N.Field3=CF1_SPECIAL;
  267. roomrec[5].N.Field4=CF64;
  268. roomrec[5].N.Field5=CF2_SPECIAL;
  269. roomrec[5].N.Field6=CF2;
  270. roomrec[5].N.Field7=CR;
  271. roomrec[5].N.floor=0;
  272. /********************************************/
  273.  
  274. /********************************************/
  275. roomrec[5].S.Field1=CL;
  276. roomrec[5].S.Field2=ML;
  277. roomrec[5].S.Field3=FL;
  278. roomrec[5].S.Field4=EMPTY;
  279. roomrec[5].S.Field5=FR;
  280. roomrec[5].S.Field6=MR;
  281. roomrec[5].S.Field7=CF1;
  282. roomrec[5].S.floor=0;
  283. /********************************************/
  284.  
  285. /********************************************/
  286. roomrec[5].E.Field1=CL;
  287. roomrec[5].E.Field2=CF1;
  288. roomrec[5].E.Field3=CF1_SPECIAL;
  289. roomrec[5].E.Field4=CF64;
  290. roomrec[5].E.Field5=CF2_SPECIAL;
  291. roomrec[5].E.Field6=CF1;
  292. roomrec[5].E.Field7=CF2;
  293. roomrec[5].E.floor=0;
  294. /********************************************/
  295.  
  296. /********************************************/
  297. roomrec[5].W.Field1=CF1;
  298. roomrec[5].W.Field2=ML;
  299. roomrec[5].W.Field3=FL;
  300. roomrec[5].W.Field4=EMPTY;
  301. roomrec[5].W.Field5=FR;
  302. roomrec[5].W.Field6=MR;
  303. roomrec[5].W.Field7=CR;
  304. roomrec[5].W.floor=0;
  305. /********************************************/
  306.  
  307.  
  308.  
  309. /********************************************/
  310. roomrec[6].N.Field1=CL;
  311. roomrec[6].N.Field2=CF1;
  312. roomrec[6].N.Field3=CF1_SPECIAL;
  313. roomrec[6].N.Field4=CF64;
  314. roomrec[6].N.Field5=CF2_SPECIAL;
  315. roomrec[6].N.Field6=CF2;
  316. roomrec[6].N.Field7=CR;
  317. roomrec[6].N.floor=0;
  318. /********************************************/
  319.  
  320. /********************************************/
  321. roomrec[6].S.Field1=CL;
  322. roomrec[6].S.Field2=ML;
  323. roomrec[6].S.Field3=FL;
  324. roomrec[6].S.Field4=EMPTY;
  325. roomrec[6].S.Field5=FR;
  326. roomrec[6].S.Field6=MR;
  327. roomrec[6].S.Field7=CR;
  328. roomrec[6].S.floor=0;
  329. /********************************************/
  330.  
  331. /********************************************/
  332. roomrec[6].E.Field1=CL;
  333. roomrec[6].E.Field2=CF1;
  334. roomrec[6].E.Field3=CF1_SPECIAL;
  335. roomrec[6].E.Field4=CF64;
  336. roomrec[6].E.Field5=CF2_SPECIAL;
  337. roomrec[6].E.Field6=CF1;
  338. roomrec[6].E.Field7=CF2;
  339. roomrec[6].E.floor=0;
  340. /********************************************/
  341.  
  342. /********************************************/
  343. roomrec[6].W.Field1=CF1;
  344. roomrec[6].W.Field2=CF2;
  345. roomrec[6].W.Field3=CF2_SPECIAL;
  346. roomrec[6].W.Field4=CF64;
  347. roomrec[6].W.Field5=CF1_SPECIAL;
  348. roomrec[6].W.Field6=CF1;
  349. roomrec[6].W.Field7=CR;
  350. roomrec[6].W.floor=0;
  351. /********************************************/
  352.  
  353.  
  354.  
  355.  
  356. /********************************************/
  357. roomrec[7].N.Field1=CL;
  358. roomrec[7].N.Field2=CF1;
  359. roomrec[7].N.Field3=CF1_SPECIAL;
  360. roomrec[7].N.Field4=CF64;
  361. roomrec[7].N.Field5=CF2_SPECIAL;
  362. roomrec[7].N.Field6=CF2;
  363. roomrec[7].N.Field7=CF1;
  364. roomrec[7].N.floor=1;
  365. /********************************************/
  366.  
  367. /********************************************/
  368. roomrec[7].S.Field1=CF1;
  369. roomrec[7].S.Field2=ML;
  370. roomrec[7].S.Field3=FL_GATE;
  371. roomrec[7].S.Field4=FAR_GATE;
  372. roomrec[7].S.Field5=FR_GATE;
  373. roomrec[7].S.Field6=MR;
  374. roomrec[7].S.Field7=CR;
  375. roomrec[7].S.floor=1;
  376. /********************************************/
  377.  
  378. /********************************************/
  379. roomrec[7].E.Field1=CL;
  380. roomrec[7].E.Field2=ML;
  381. roomrec[7].E.Field3=REG_FAR_FILL;
  382. roomrec[7].E.Field4=FF642;
  383. roomrec[7].E.Field5=FR;
  384. roomrec[7].E.Field6=MR;
  385. roomrec[7].E.Field7=CF1;
  386. roomrec[7].E.floor=1;
  387. /********************************************/
  388.  
  389. /********************************************/
  390. roomrec[7].W.Field1=CF1;
  391. roomrec[7].W.Field2=CF2;
  392. roomrec[7].W.Field3=CF1_SPECIAL;
  393. roomrec[7].W.Field4=CF64;
  394. roomrec[7].W.Field5=CF2_SPECIAL;
  395. roomrec[7].W.Field6=CF1;
  396. roomrec[7].W.Field7=CR;
  397. roomrec[7].W.floor=1;
  398. /********************************************/
  399.  
  400.  
  401.  
  402. /********************************************/
  403. roomrec[8].N.Field1=CF1;
  404. roomrec[8].N.Field2=CF2;
  405. roomrec[8].N.Field3=CF1_SPECIAL;
  406. roomrec[8].N.Field4=CF64;
  407. roomrec[8].N.Field5=CF1_SPECIAL;
  408. roomrec[8].N.Field6=CF1;
  409. roomrec[8].N.Field7=MF3212;
  410. roomrec[8].N.floor=0;
  411. /********************************************/
  412.  
  413. /********************************************/
  414. roomrec[8].S.Field1=CF1;
  415. roomrec[8].S.Field2=CF2;
  416. roomrec[8].S.Field3=CF1_SPECIAL;
  417. roomrec[8].S.Field4=CF64;
  418. roomrec[8].S.Field5=CF1_SPECIAL;
  419. roomrec[8].S.Field6=CF2;
  420. roomrec[8].S.Field7=REG_MED_CLOSE_FILL;
  421. roomrec[8].S.floor=0;
  422. /********************************************/
  423.  
  424. /********************************************/
  425. roomrec[8].E.Field1=CL;
  426. roomrec[8].E.Field2=REG_MED_CLOSE_FILL;
  427. roomrec[8].E.Field3=MF1611;
  428. roomrec[8].E.Field4=MF641;
  429. roomrec[8].E.Field5=MF1612;
  430. roomrec[8].E.Field6=MR;
  431. roomrec[8].E.Field7=CR;
  432. roomrec[8].E.floor=0;
  433. /********************************************/
  434.  
  435. /********************************************/
  436. roomrec[8].W.Field1=CL;
  437. roomrec[8].W.Field2=MF3212;
  438. roomrec[8].W.Field3=MF1611;
  439. roomrec[8].W.Field4=MF641;
  440. roomrec[8].W.Field5=MF1612;
  441. roomrec[8].W.Field6=MR;
  442. roomrec[8].W.Field7=CR;
  443. roomrec[8].W.floor=0;
  444. /********************************************/
  445.  
  446.  
  447.  
  448.  
  449. /********************************************/
  450. roomrec[9].N.Field1=CF1;
  451. roomrec[9].N.Field2=ML;
  452. roomrec[9].N.Field3=MF1621;
  453. roomrec[9].N.Field4=MF642;
  454. roomrec[9].N.Field5=MF1622;
  455. roomrec[9].N.Field6=MF3222;
  456. roomrec[9].N.Field7=CR;
  457. roomrec[9].N.floor=1;
  458. /********************************************/
  459.  
  460. /********************************************/
  461. roomrec[9].S.Field1=CL;
  462. roomrec[9].S.Field2=CF1;
  463. roomrec[9].S.Field3=CF1_SPECIAL;
  464. roomrec[9].S.Field4=CF64;
  465. roomrec[9].S.Field5=CF1_SPECIAL;
  466. roomrec[9].S.Field6=CF2;
  467. roomrec[9].S.Field7=CF1;
  468. roomrec[9].S.floor=1;
  469. /********************************************/
  470.  
  471. /********************************************/
  472. roomrec[9].E.Field1=REG_MED_CLOSE_FILL;
  473. roomrec[9].E.Field2=CF1;
  474. roomrec[9].E.Field3=CF1_SPECIAL;
  475. roomrec[9].E.Field4=CF64;
  476. roomrec[9].E.Field5=CF2_SPECIAL;
  477. roomrec[9].E.Field6=CF1;
  478. roomrec[9].E.Field7=CR;
  479. roomrec[9].E.floor=1;
  480. /********************************************/
  481.  
  482. /********************************************/
  483. roomrec[9].W.Field1=CL;
  484. roomrec[9].W.Field2=ML;
  485. roomrec[9].W.Field3=FF1621;
  486. roomrec[9].W.Field4=FF642;
  487. roomrec[9].W.Field5=FR;
  488. roomrec[9].W.Field6=MR;
  489. roomrec[9].W.Field7=CF1;
  490. roomrec[9].W.floor=1;
  491. /********************************************/
  492.  
  493.  
  494.  
  495. /********************************************/
  496. roomrec[10].N.Field1=CL;
  497. roomrec[10].N.Field2=MF3222;
  498. roomrec[10].N.Field3=MF1621;
  499. roomrec[10].N.Field4=MF642;
  500. roomrec[10].N.Field5=MF1622;
  501. roomrec[10].N.Field6=MR;
  502. roomrec[10].N.Field7=CR;
  503. roomrec[10].N.floor=1;
  504. /********************************************/
  505.  
  506. /********************************************/
  507. roomrec[10].S.Field1=CL;
  508. roomrec[10].S.Field2=ML;
  509. roomrec[10].S.Field3=FL;
  510. roomrec[10].S.Field4=FF642;
  511. roomrec[10].S.Field5=FF1622;
  512. roomrec[10].S.Field6=MR;
  513. roomrec[10].S.Field7=CR;
  514. roomrec[10].S.floor=1;
  515. /********************************************/
  516.  
  517. /********************************************/
  518. roomrec[10].E.Field1=CF1;
  519. roomrec[10].E.Field2=CF2;
  520. roomrec[10].E.Field3=CF1_SPECIAL;
  521. roomrec[10].E.Field4=CF64;
  522. roomrec[10].E.Field5=CF2_SPECIAL;
  523. roomrec[10].E.Field6=CF1;
  524. roomrec[10].E.Field7=CF2;
  525. roomrec[10].E.floor=1;
  526. /********************************************/
  527.  
  528. /********************************************/
  529. roomrec[10].W.Field1=CF1;
  530. roomrec[10].W.Field2=CF2;
  531. roomrec[10].W.Field3=CF1_SPECIAL;
  532. roomrec[10].W.Field4=CF64;
  533. roomrec[10].W.Field5=CF2_SPECIAL;
  534. roomrec[10].W.Field6=CF1;
  535. roomrec[10].W.Field7=REG_MED_CLOSE_FILL;
  536. roomrec[10].W.floor=1;
  537. /********************************************/
  538.  
  539.  
  540.  
  541. /********************************************/
  542. roomrec[11].N.Field1=CL;
  543. roomrec[11].N.Field2=ML;
  544. roomrec[11].N.Field3=MF1621;
  545. roomrec[11].N.Field4=MF642;
  546. roomrec[11].N.Field5=MF1622;
  547. roomrec[11].N.Field6=MR;
  548. roomrec[11].N.Field7=CR;
  549. roomrec[11].N.floor=1;
  550. /********************************************/
  551.  
  552. /********************************************/
  553. roomrec[11].S.Field1=CL;
  554. roomrec[11].S.Field2=ML;
  555. roomrec[11].S.Field3=FL;
  556. roomrec[11].S.Field4=EMPTY;
  557. roomrec[11].S.Field5=FR;
  558. roomrec[11].S.Field6=MR;
  559. roomrec[11].S.Field7=CR;
  560. roomrec[11].S.floor=1;
  561. /********************************************/
  562.  
  563. /********************************************/
  564. roomrec[11].E.Field1=CF1;
  565. roomrec[11].E.Field2=CF2;
  566. roomrec[11].E.Field3=CF1_SPECIAL;
  567. roomrec[11].E.Field4=CF64;
  568. roomrec[11].E.Field5=CF2_SPECIAL;
  569. roomrec[11].E.Field6=CF1;
  570. roomrec[11].E.Field7=CF2;
  571. roomrec[11].E.floor=1;
  572. /********************************************/
  573.  
  574. /********************************************/
  575. roomrec[11].W.Field1=CF1;
  576. roomrec[11].W.Field2=CF2;
  577. roomrec[11].W.Field3=CF1_SPECIAL;
  578. roomrec[11].W.Field4=CF64;
  579. roomrec[11].W.Field5=CF2_SPECIAL;
  580. roomrec[11].W.Field6=CF1;
  581. roomrec[11].W.Field7=CF2;
  582. roomrec[11].W.floor=1;
  583. /********************************************/
  584.  
  585.  
  586. /********************************************/
  587. roomrec[12].N.Field1=CL;
  588. roomrec[12].N.Field2=ML;
  589. roomrec[12].N.Field3=MF1611;
  590. roomrec[12].N.Field4=MF641;
  591. roomrec[12].N.Field5=MF1612;
  592. roomrec[12].N.Field6=MF3212;
  593. roomrec[12].N.Field7=CR;
  594. roomrec[12].N.floor=0;
  595. /********************************************/
  596.  
  597. /********************************************/
  598. roomrec[12].S.Field1=CL;
  599. roomrec[12].S.Field2=ML_GATE;
  600. roomrec[12].S.Field3=FL;
  601. roomrec[12].S.Field4=CLOSE_GATE;
  602. roomrec[12].S.Field5=FR;
  603. roomrec[12].S.Field6=MR_GATE;
  604. roomrec[12].S.Field7=CR;
  605. roomrec[12].S.floor=0;
  606. /********************************************/
  607.  
  608. /********************************************/
  609. roomrec[12].E.Field1=REG_MED_CLOSE_FILL;
  610. roomrec[12].E.Field2=CF1;
  611. roomrec[12].E.Field3=CF2_SPECIAL;
  612. roomrec[12].E.Field4=CF64;
  613. roomrec[12].E.Field5=CF1_SPECIAL;
  614. roomrec[12].E.Field6=CF2;
  615. roomrec[12].E.Field7=CF1;
  616. roomrec[12].E.floor=0;
  617. /********************************************/
  618.  
  619. /********************************************/
  620. roomrec[12].W.Field1=CF2;
  621. roomrec[12].W.Field2=CF1;
  622. roomrec[12].W.Field3=CF2_SPECIAL;
  623. roomrec[12].W.Field4=CF64;
  624. roomrec[12].W.Field5=CF1_SPECIAL;
  625. roomrec[12].W.Field6=CF2;
  626. roomrec[12].W.Field7=CF1;
  627. roomrec[12].W.floor=0;
  628. /********************************************/
  629.  
  630.  
  631.  
  632. /********************************************/
  633. roomrec[13].N.Field1=CL;
  634. roomrec[13].N.Field2=CF1;
  635. roomrec[13].N.Field3=CF1_SPECIAL;
  636. roomrec[13].N.Field4=CF64;
  637. roomrec[13].N.Field5=CF1_SPECIAL;
  638. roomrec[13].N.Field6=CF2;
  639. roomrec[13].N.Field7=CR;
  640. roomrec[13].N.floor=0;
  641. /********************************************/
  642.  
  643. /********************************************/
  644. roomrec[13].S.Field1=CL;
  645. roomrec[13].S.Field2=MF3211;
  646. roomrec[13].S.Field3=FL;
  647. roomrec[13].S.Field4=FF641;
  648. roomrec[13].S.Field5=FR;
  649. roomrec[13].S.Field6=MF3212;
  650. roomrec[13].S.Field7=CR;
  651. roomrec[13].S.floor=0;
  652. /********************************************/
  653.  
  654. /********************************************/
  655. roomrec[13].E.Field1=CL;
  656. roomrec[13].E.Field2=CF1;
  657. roomrec[13].E.Field3=CF1_SPECIAL;
  658. roomrec[13].E.Field4=CF64;
  659. roomrec[13].E.Field5=CF2_SPECIAL;
  660. roomrec[13].E.Field6=CF1;
  661. roomrec[13].E.Field7=REG_MED_CLOSE_FILL;
  662. roomrec[13].E.floor=0;
  663. /********************************************/
  664.  
  665. /********************************************/
  666. roomrec[13].W.Field1=REG_MED_CLOSE_FILL;
  667. roomrec[13].W.Field2=CF2;
  668. roomrec[13].W.Field3=CF1_SPECIAL;
  669. roomrec[13].W.Field4=CF64;
  670. roomrec[13].W.Field5=CF2_SPECIAL;
  671. roomrec[13].W.Field6=CF2;
  672. roomrec[13].W.Field7=CR;
  673. roomrec[13].W.floor=0;
  674. /********************************************/
  675.  
  676.  
  677. /********************************************/
  678. roomrec[14].N.Field1=CL;
  679. roomrec[14].N.Field2=ML;
  680. roomrec[14].N.Field3=FF1611;
  681. roomrec[14].N.Field4=FF641;
  682. roomrec[14].N.Field5=FR;
  683. roomrec[14].N.Field6=MR;
  684. roomrec[14].N.Field7=CR;
  685. roomrec[14].N.floor=0;
  686. /********************************************/
  687.  
  688. /********************************************/
  689. roomrec[14].S.Field1=CL;
  690. roomrec[14].S.Field2=ML;
  691. roomrec[14].S.Field3=MF1611;
  692. roomrec[14].S.Field4=MF641;
  693. roomrec[14].S.Field5=MF1612;
  694. roomrec[14].S.Field6=MF3212;
  695. roomrec[14].S.Field7=CR;
  696. roomrec[14].S.floor=0;
  697. /********************************************/
  698.  
  699. /********************************************/
  700. roomrec[14].E.Field1=CF2;
  701. roomrec[14].E.Field2=CF1;
  702. roomrec[14].E.Field3=CF2_SPECIAL;
  703. roomrec[14].E.Field4=CF64;
  704. roomrec[14].E.Field5=CF1_SPECIAL;
  705. roomrec[14].E.Field6=CF2;
  706. roomrec[14].E.Field7=CF1;
  707. roomrec[14].E.floor=0;
  708. /********************************************/
  709.  
  710. /********************************************/
  711. roomrec[14].W.Field1=REG_MED_CLOSE_FILL;
  712. roomrec[14].W.Field2=CF2;
  713. roomrec[14].W.Field3=CF1_SPECIAL;
  714. roomrec[14].W.Field4=CF64;
  715. roomrec[14].W.Field5=CF2_SPECIAL;
  716. roomrec[14].W.Field6=CF2;
  717. roomrec[14].W.Field7=CF1;
  718. roomrec[14].W.floor=0;
  719. /********************************************/
  720.  
  721.  
  722.  
  723. /********************************************/
  724. roomrec[15].N.Field1=CL;
  725. roomrec[15].N.Field2=ML;
  726. roomrec[15].N.Field3=FL;
  727. roomrec[15].N.Field4=FF641;
  728. roomrec[15].N.Field5=FR;
  729. roomrec[15].N.Field6=MR;
  730. roomrec[15].N.Field7=CR;
  731. roomrec[15].N.floor=0;
  732. /********************************************/
  733.  
  734. /********************************************/
  735. roomrec[15].S.Field1=CL;
  736. roomrec[15].S.Field2=ML;
  737. roomrec[15].S.Field3=FL;
  738. roomrec[15].S.Field4=FF641;
  739. roomrec[15].S.Field5=FF1612;
  740. roomrec[15].S.Field6=MR;
  741. roomrec[15].S.Field7=CR;
  742. roomrec[15].S.floor=0;
  743. /********************************************/
  744.  
  745. /********************************************/
  746. roomrec[15].E.Field1=CF1;
  747. roomrec[15].E.Field2=CF2;
  748. roomrec[15].E.Field3=CF1_SPECIAL;
  749. roomrec[15].E.Field4=CF64;
  750. roomrec[15].E.Field5=CF2_SPECIAL;
  751. roomrec[15].E.Field6=CF1;
  752. roomrec[15].E.Field7=CF2;
  753. roomrec[15].E.floor=0;
  754. /********************************************/
  755.  
  756. /********************************************/
  757. roomrec[15].W.Field1=CF1;
  758. roomrec[15].W.Field2=CF2;
  759. roomrec[15].W.Field3=CF1_SPECIAL;
  760. roomrec[15].W.Field4=CF64;
  761. roomrec[15].W.Field5=CF2_SPECIAL;
  762. roomrec[15].W.Field6=CF2;
  763. roomrec[15].W.Field7=CF1;
  764. roomrec[15].W.floor=0;
  765. /********************************************/
  766.  
  767.  
  768.  
  769.  
  770. /********************************************/
  771. roomrec[16].N.Field1=CL;
  772. roomrec[16].N.Field2=ML;
  773. roomrec[16].N.Field3=FL;
  774. roomrec[16].N.Field4=FF642;
  775. roomrec[16].N.Field5=FF1622;
  776. roomrec[16].N.Field6=MR;
  777. roomrec[16].N.Field7=CR;
  778. roomrec[16].N.floor=1;
  779. /********************************************/
  780.  
  781. /********************************************/
  782. roomrec[16].S.Field1=CL;
  783. roomrec[16].S.Field2=ML;
  784. roomrec[16].S.Field3=FL;
  785. roomrec[16].S.Field4=EMPTY;
  786. roomrec[16].S.Field5=FR;
  787. roomrec[16].S.Field6=MR;
  788. roomrec[16].S.Field7=CR;
  789. roomrec[16].S.floor=1;
  790. /********************************************/
  791.  
  792. /********************************************/
  793. roomrec[16].E.Field1=CF1;
  794. roomrec[16].E.Field2=CF2;
  795. roomrec[16].E.Field3=CF1_SPECIAL;
  796. roomrec[16].E.Field4=CF64;
  797. roomrec[16].E.Field5=CF2_SPECIAL;
  798. roomrec[16].E.Field6=CF1;
  799. roomrec[16].E.Field7=CF2;
  800. roomrec[16].E.floor=1;
  801. /********************************************/
  802.  
  803. /********************************************/
  804. roomrec[16].W.Field1=CF1;
  805. roomrec[16].W.Field2=CF2;
  806. roomrec[16].W.Field3=CF1_SPECIAL;
  807. roomrec[16].W.Field4=CF64;
  808. roomrec[16].W.Field5=CF2_SPECIAL;
  809. roomrec[16].W.Field6=CF1;
  810. roomrec[16].W.Field7=CF2;
  811. roomrec[16].W.floor=1;
  812. /********************************************/
  813.  
  814.  
  815.  
  816. /********************************************/
  817. roomrec[17].N.Field1=CL;
  818. roomrec[17].N.Field2=CF1;
  819. roomrec[17].N.Field3=CF2;
  820. roomrec[17].N.Field4=CF64;
  821. roomrec[17].N.Field5=CF2;
  822. roomrec[17].N.Field6=CF1;
  823. roomrec[17].N.Field7=CF2;
  824. roomrec[17].N.floor=1;
  825. /********************************************/
  826.  
  827. /********************************************/
  828. roomrec[17].S.Field1=CF1;
  829. roomrec[17].S.Field2=ML;
  830. roomrec[17].S.Field3=FL;
  831. roomrec[17].S.Field4=EMPTY;
  832. roomrec[17].S.Field5=FR;
  833. roomrec[17].S.Field6=MR;
  834. roomrec[17].S.Field7=CR;
  835. roomrec[17].S.floor=1;
  836. /********************************************/
  837.  
  838. /********************************************/
  839. roomrec[17].E.Field1=CL;
  840. roomrec[17].E.Field2=ML;
  841. roomrec[17].E.Field3=FF1621;
  842. roomrec[17].E.Field4=EMPTY;
  843. roomrec[17].E.Field5=FF1622;
  844. roomrec[17].E.Field6=MR;
  845. roomrec[17].E.Field7=CF1;
  846. roomrec[17].E.floor=1;
  847. /********************************************/
  848.  
  849. /********************************************/
  850. roomrec[17].W.Field1=CF1;
  851. roomrec[17].W.Field2=CF2;
  852. roomrec[17].W.Field3=CF1_SPECIAL;
  853. roomrec[17].W.Field4=CF64;
  854. roomrec[17].W.Field5=CF2_SPECIAL;
  855. roomrec[17].W.Field6=CF2;
  856. roomrec[17].W.Field7=CR;
  857. roomrec[17].W.floor=1;
  858. /********************************************/
  859.  
  860.  
  861. /********************************************/
  862. roomrec[18].N.Field1=CF1;
  863. roomrec[18].N.Field2=CF2;
  864. roomrec[18].N.Field3=CF1_SPECIAL;
  865. roomrec[18].N.Field4=CF64;
  866. roomrec[18].N.Field5=CF2_SPECIAL;
  867. roomrec[18].N.Field6=CF1;
  868. roomrec[18].N.Field7=MF3211;
  869. roomrec[18].N.floor=0;
  870. /********************************************/
  871.  
  872. /********************************************/
  873. roomrec[18].S.Field1=MF3211;
  874. roomrec[18].S.Field2=CF1;
  875. roomrec[18].S.Field3=CF2_SPECIAL;
  876. roomrec[18].S.Field4=CF64;
  877. roomrec[18].S.Field5=CF1_SPECIAL;
  878. roomrec[18].S.Field6=CF2;
  879. roomrec[18].S.Field7=REG_MED_CLOSE_FILL;
  880. roomrec[18].S.floor=0;
  881. /********************************************/
  882.  
  883. /********************************************/
  884. roomrec[18].E.Field1=CL;
  885. roomrec[18].E.Field2=MF3211;
  886. roomrec[18].E.Field3=FL;
  887. roomrec[18].E.Field4=EMPTY;
  888. roomrec[18].E.Field5=FR;
  889. roomrec[18].E.Field6=MF3212;
  890. roomrec[18].E.Field7=CR;
  891. roomrec[18].E.floor=0;
  892. /********************************************/
  893.  
  894. /********************************************/
  895. roomrec[18].W.Field1=CL;
  896. roomrec[18].W.Field2=MF3211;
  897. roomrec[18].W.Field3=MF1611;
  898. roomrec[18].W.Field4=MF641;
  899. roomrec[18].W.Field5=MF1612;
  900. roomrec[18].W.Field6=MR;
  901. roomrec[18].W.Field7=CR;
  902. roomrec[18].W.floor=0;
  903. /********************************************/
  904.  
  905. /*******/
  906. roomrec[19].N.Field1=CF1;
  907. roomrec[19].N.Field2=ML;
  908. roomrec[19].N.Field3=MF1621;
  909. roomrec[19].N.Field4=MF642;
  910. roomrec[19].N.Field5=MF1622;
  911. roomrec[19].N.Field6=MR;
  912. roomrec[19].N.Field7=CF1;
  913. roomrec[19].N.floor=1;
  914. /********************************************/
  915.  
  916. /********************************************/
  917. roomrec[19].S.Field1=CF1;
  918. roomrec[19].S.Field2=ML;
  919. roomrec[19].S.Field3=MF1621;
  920. roomrec[19].S.Field4=MF642;
  921. roomrec[19].S.Field5=MF1622;
  922. roomrec[19].S.Field6=MR;
  923. roomrec[19].S.Field7=CF1;
  924. roomrec[19].S.floor=1;
  925. /********************************************/
  926.  
  927. /********************************************/
  928. roomrec[19].E.Field1=CF1;
  929. roomrec[19].E.Field2=ML;
  930. roomrec[19].E.Field3=FF1621;
  931. roomrec[19].E.Field4=FF642;
  932. roomrec[19].E.Field5=FR;
  933. roomrec[19].E.Field6=MR;
  934. roomrec[19].E.Field7=CF1;
  935. roomrec[19].E.floor=1;
  936. /********************************************/
  937.  
  938. /********************************************/
  939. roomrec[19].W.Field1=CF1;
  940. roomrec[19].W.Field2=ML;
  941. roomrec[19].W.Field3=FF1621;
  942. roomrec[19].W.Field4=FF642;
  943. roomrec[19].W.Field5=FR;
  944. roomrec[19].W.Field6=MR;
  945. roomrec[19].W.Field7=CF1;
  946. roomrec[19].W.floor=1;
  947. /********************************************/
  948.  
  949.  
  950. /*******/
  951. roomrec[20].N.Field1=MF3211;
  952. roomrec[20].N.Field2=CF1;
  953. roomrec[20].N.Field3=CF1_SPECIAL;
  954. roomrec[20].N.Field4=CF64;
  955. roomrec[20].N.Field5=CF2_SPECIAL;
  956. roomrec[20].N.Field6=CF1;
  957. roomrec[20].N.Field7=REG_MED_CLOSE_FILL;
  958. roomrec[20].N.floor=0;
  959. /********************************************/
  960.  
  961. /********************************************/
  962. roomrec[20].S.Field1=CF1;
  963. roomrec[20].S.Field2=CF2;
  964. roomrec[20].S.Field3=CF1_SPECIAL;
  965. roomrec[20].S.Field4=CF64;
  966. roomrec[20].S.Field5=CF1_SPECIAL;
  967. roomrec[20].S.Field6=CF2;
  968. roomrec[20].S.Field7=MF3211;
  969. roomrec[20].S.floor=0;
  970. /********************************************/
  971.  
  972. /********************************************/
  973. roomrec[20].E.Field1=CL;
  974. roomrec[20].E.Field2=MF3211;
  975. roomrec[20].E.Field3=MF1611;
  976. roomrec[20].E.Field4=MF641;
  977. roomrec[20].E.Field5=MF1612;
  978. roomrec[20].E.Field6=MR;
  979. roomrec[20].E.Field7=CR;
  980. roomrec[20].E.floor=0;
  981. /********************************************/
  982.  
  983. /********************************************/
  984. roomrec[20].W.Field1=CL;
  985. roomrec[20].W.Field2=MF3211;
  986. roomrec[20].W.Field3=FL;
  987. roomrec[20].W.Field4=EMPTY;
  988. roomrec[20].W.Field5=FR;
  989. roomrec[20].W.Field6=MF3211;
  990. roomrec[20].W.Field7=CR;
  991. roomrec[20].W.floor=0;
  992. /********************************************/
  993.  
  994.  
  995. /*******/
  996. roomrec[21].N.Field1=CF1;
  997. roomrec[21].N.Field2=ML;
  998. roomrec[21].N.Field3=FL;
  999. roomrec[21].N.Field4=EMPTY;
  1000. roomrec[21].N.Field5=FR;
  1001. roomrec[21].N.Field6=MR;
  1002. roomrec[21].N.Field7=CR;
  1003. roomrec[21].N.floor=1;
  1004. /********************************************/
  1005.  
  1006. /********************************************/
  1007. roomrec[21].S.Field1=CL;
  1008. roomrec[21].S.Field2=CF1;
  1009. roomrec[21].S.Field3=CF1_SPECIAL;
  1010. roomrec[21].S.Field4=CF64;
  1011. roomrec[21].S.Field5=CF1_SPECIAL;
  1012. roomrec[21].S.Field6=CF2;
  1013. roomrec[21].S.Field7=CF1;
  1014. roomrec[21].S.floor=1;
  1015. /********************************************/
  1016.  
  1017. /********************************************/
  1018. roomrec[21].E.Field1=CF1;
  1019. roomrec[21].E.Field2=CF2;
  1020. roomrec[21].E.Field3=CF1_SPECIAL;
  1021. roomrec[21].E.Field4=CF64;
  1022. roomrec[21].E.Field5=CF2_SPECIAL;
  1023. roomrec[21].E.Field6=CF1;
  1024. roomrec[21].E.Field7=CR;
  1025. roomrec[21].E.floor=1;
  1026. /********************************************/
  1027.  
  1028. /********************************************/
  1029. roomrec[21].W.Field1=CL;
  1030. roomrec[21].W.Field2=ML;
  1031. roomrec[21].W.Field3=FF1621;
  1032. roomrec[21].W.Field4=EMPTY;
  1033. roomrec[21].W.Field5=FF1622;
  1034. roomrec[21].W.Field6=MR;
  1035. roomrec[21].W.Field7=CF1;
  1036. roomrec[21].W.floor=1;
  1037. /********************************************/
  1038.  
  1039.  
  1040.  
  1041. /*******/
  1042. roomrec[22].N.Field1=CL;
  1043. roomrec[22].N.Field2=ML;
  1044. roomrec[22].N.Field3=FL;
  1045. roomrec[22].N.Field4=EMPTY;
  1046. roomrec[22].N.Field5=FR;
  1047. roomrec[22].N.Field6=MR;
  1048. roomrec[22].N.Field7=CR;
  1049. roomrec[22].N.floor=1;
  1050. /********************************************/
  1051.  
  1052. /********************************************/
  1053. roomrec[22].S.Field1=CL;
  1054. roomrec[22].S.Field2=ML;
  1055. roomrec[22].S.Field3=MF1621;
  1056. roomrec[22].S.Field4=MF642;
  1057. roomrec[22].S.Field5=MF1622;
  1058. roomrec[22].S.Field6=MF3222;
  1059. roomrec[22].S.Field7=CR;
  1060. roomrec[22].S.floor=1;
  1061. /********************************************/
  1062.  
  1063. /********************************************/
  1064. roomrec[22].E.Field1=CF2;
  1065. roomrec[22].E.Field2=CF1;
  1066. roomrec[22].E.Field3=CF2_SPECIAL;
  1067. roomrec[22].E.Field4=CF64;
  1068. roomrec[22].E.Field5=CF1_SPECIAL;
  1069. roomrec[22].E.Field6=CF2;
  1070. roomrec[22].E.Field7=CF1;
  1071. roomrec[22].E.floor=1;
  1072. /********************************************/
  1073.  
  1074. /********************************************/
  1075. roomrec[22].W.Field1=REG_MED_CLOSE_FILL;
  1076. roomrec[22].W.Field2=CF2;
  1077. roomrec[22].W.Field3=CF1_SPECIAL;
  1078. roomrec[22].W.Field4=CF64;
  1079. roomrec[22].W.Field5=CF2_SPECIAL;
  1080. roomrec[22].W.Field6=CF1;
  1081. roomrec[22].W.Field7=CF2;
  1082. roomrec[22].W.floor=1;
  1083. /********************************************/
  1084.  
  1085.  
  1086.  
  1087. /*******/
  1088. roomrec[23].N.Field1=CL;
  1089. roomrec[23].N.Field2=ML_GATE;
  1090. roomrec[23].N.Field3=FL;
  1091. roomrec[23].N.Field4=CLOSE_GATE;
  1092. roomrec[23].N.Field5=FR;
  1093. roomrec[23].N.Field6=MR_GATE;
  1094. roomrec[23].N.Field7=CR;
  1095. roomrec[23].N.floor=0;
  1096. /********************************************/
  1097.  
  1098. /********************************************/
  1099. roomrec[23].S.Field1=CL;
  1100. roomrec[23].S.Field2=ML;
  1101. roomrec[23].S.Field3=FL;
  1102. roomrec[23].S.Field4=EMPTY;
  1103. roomrec[23].S.Field5=FR;
  1104. roomrec[23].S.Field6=MR;
  1105. roomrec[23].S.Field7=CR;
  1106. roomrec[23].S.floor=0;
  1107. /********************************************/
  1108.  
  1109. /********************************************/
  1110. roomrec[23].E.Field1=CF1;
  1111. roomrec[23].E.Field2=CF2;
  1112. roomrec[23].E.Field3=CF1_SPECIAL;
  1113. roomrec[23].E.Field4=CF64;
  1114. roomrec[23].E.Field5=CF2_SPECIAL;
  1115. roomrec[23].E.Field6=CF1;
  1116. roomrec[23].E.Field7=CF2;
  1117. roomrec[23].E.floor=0;
  1118. /********************************************/
  1119.  
  1120. /********************************************/
  1121. roomrec[23].W.Field1=CF2;
  1122. roomrec[23].W.Field2=CF1;
  1123. roomrec[23].W.Field3=CF2_SPECIAL;
  1124. roomrec[23].W.Field4=CF64;
  1125. roomrec[23].W.Field5=CF1_SPECIAL;
  1126. roomrec[23].W.Field6=CF2;
  1127. roomrec[23].W.Field7=CF1;
  1128. roomrec[23].W.floor=0;
  1129. /********************************************/
  1130.  
  1131. /************/
  1132. roomrec[24].N.Field1=CL;
  1133. roomrec[24].N.Field2=ML;
  1134. roomrec[24].N.Field3=MF1611;
  1135. roomrec[24].N.Field4=MF641;
  1136. roomrec[24].N.Field5=MF1612;
  1137. roomrec[24].N.Field6=MF3212;
  1138. roomrec[24].N.Field7=CR;
  1139. roomrec[24].N.floor=0;
  1140. /********************************************/
  1141.  
  1142. /********************************************/
  1143. roomrec[24].S.Field1=CL;
  1144. roomrec[24].S.Field2=ML;
  1145. roomrec[24].S.Field3=FL;
  1146. roomrec[24].S.Field4=FF641;
  1147. roomrec[24].S.Field5=FR;
  1148. roomrec[24].S.Field6=MR;
  1149. roomrec[24].S.Field7=CR;
  1150. roomrec[24].S.floor=0;
  1151. /********************************************/
  1152.  
  1153. /********************************************/
  1154. roomrec[24].E.Field1=REG_MED_CLOSE_FILL;
  1155. roomrec[24].E.Field2=CF2;
  1156. roomrec[24].E.Field3=CF1_SPECIAL;
  1157. roomrec[24].E.Field4=CF64;
  1158. roomrec[24].E.Field5=CF2_SPECIAL;
  1159. roomrec[24].E.Field6=CF1;
  1160. roomrec[24].E.Field7=CF2;
  1161. roomrec[24].E.floor=0;
  1162. /********************************************/
  1163.  
  1164. /********************************************/
  1165. roomrec[24].W.Field1=CF2;
  1166. roomrec[24].W.Field2=CF1;
  1167. roomrec[24].W.Field3=CF2_SPECIAL;
  1168. roomrec[24].W.Field4=CF64;
  1169. roomrec[24].W.Field5=CF1_SPECIAL;
  1170. roomrec[24].W.Field6=CF2;
  1171. roomrec[24].W.Field7=CF1;
  1172. roomrec[24].W.floor=0;
  1173. /********************************************/
  1174.  
  1175.  
  1176. /************/
  1177. roomrec[25].N.Field1=CL;
  1178. roomrec[25].N.Field2=MF3212;
  1179. roomrec[25].N.Field3=FL;
  1180. roomrec[25].N.Field4=FF641;
  1181. roomrec[25].N.Field5=FR;
  1182. roomrec[25].N.Field6=MF3212;
  1183. roomrec[25].N.Field7=CR;
  1184. roomrec[25].N.floor=0;
  1185. /********************************************/
  1186.  
  1187. /********************************************/
  1188. roomrec[25].S.Field1=CL;
  1189. roomrec[25].S.Field2=CF1;
  1190. roomrec[25].S.Field3=CF2_SPECIAL;
  1191. roomrec[25].S.Field4=CF64;
  1192. roomrec[25].S.Field5=CF1_SPECIAL;
  1193. roomrec[25].S.Field6=CF2;
  1194. roomrec[25].S.Field7=CR;
  1195. roomrec[25].S.floor=0;
  1196. /********************************************/
  1197.  
  1198. /********************************************/
  1199. roomrec[25].E.Field1=REG_MED_CLOSE_FILL;
  1200. roomrec[25].E.Field2=CF2;
  1201. roomrec[25].E.Field3=CF1_SPECIAL;
  1202. roomrec[25].E.Field4=CF64;
  1203. roomrec[25].E.Field5=CF2_SPECIAL;
  1204. roomrec[25].E.Field6=CF1;
  1205. roomrec[25].E.Field7=CR;
  1206. roomrec[25].E.floor=0;
  1207. /********************************************/
  1208.  
  1209. /********************************************/
  1210. roomrec[25].W.Field1=CL;
  1211. roomrec[25].W.Field2=CF2;
  1212. roomrec[25].W.Field3=CF1_SPECIAL;
  1213. roomrec[25].W.Field4=CF64;
  1214. roomrec[25].W.Field5=CF2_SPECIAL;
  1215. roomrec[25].W.Field6=CF1;
  1216. roomrec[25].W.Field7=REG_MED_CLOSE_FILL;
  1217. roomrec[25].W.floor=0;
  1218. /********************************************/
  1219.  
  1220.  
  1221. /************/
  1222. roomrec[26].N.Field1=CL;
  1223. roomrec[26].N.Field2=CF1;
  1224. roomrec[26].N.Field3=CF2_SPECIAL;
  1225. roomrec[26].N.Field4=CF64;
  1226. roomrec[26].N.Field5=CF1_SPECIAL;
  1227. roomrec[26].N.Field6=CF2;
  1228. roomrec[26].N.Field7=CF1;
  1229. roomrec[26].N.floor=0;
  1230. /********************************************/
  1231.  
  1232. /********************************************/
  1233. roomrec[26].S.Field1=CF1;
  1234. roomrec[26].S.Field2=ML;
  1235. roomrec[26].S.Field3=FL;
  1236. roomrec[26].S.Field4=EMPTY;
  1237. roomrec[26].S.Field5=FR;
  1238. roomrec[26].S.Field6=MR;
  1239. roomrec[26].S.Field7=CR;
  1240. roomrec[26].S.floor=0;
  1241. /********************************************/
  1242.  
  1243. /********************************************/
  1244. roomrec[26].E.Field1=CL;
  1245. roomrec[26].E.Field2=ML;
  1246. roomrec[26].E.Field3=FF1611;
  1247. roomrec[26].E.Field4=FF641;
  1248. roomrec[26].E.Field5=FR;
  1249. roomrec[26].E.Field6=MR;
  1250. roomrec[26].E.Field7=CF2;
  1251. roomrec[26].E.floor=0;
  1252. /********************************************/
  1253.  
  1254. /********************************************/
  1255. roomrec[26].W.Field1=CF1;
  1256. roomrec[26].W.Field2=CF2;
  1257. roomrec[26].W.Field3=CF1_SPECIAL;
  1258. roomrec[26].W.Field4=CF64;
  1259. roomrec[26].W.Field5=CF2_SPECIAL;
  1260. roomrec[26].W.Field6=CF1;
  1261. roomrec[26].W.Field7=CR;
  1262. roomrec[26].W.floor=0;
  1263. /********************************************/
  1264.  
  1265.  
  1266. /********************************************/
  1267. roomrec[27].N.Field1=CF2;
  1268. roomrec[27].N.Field2=CF1;
  1269. roomrec[27].N.Field3=CF2_SPECIAL;
  1270. roomrec[27].N.Field4=CF64;
  1271. roomrec[27].N.Field5=CF1_SPECIAL;
  1272. roomrec[27].N.Field6=CF2;
  1273. roomrec[27].N.Field7=REG_MED_CLOSE_FILL;
  1274. roomrec[27].N.floor=1;
  1275. /********************************************/
  1276.  
  1277. /********************************************/
  1278. roomrec[27].S.Field1=CF1;
  1279. roomrec[27].S.Field2=CF2;
  1280. roomrec[27].S.Field3=CF1_SPECIAL;
  1281. roomrec[27].S.Field4=CF64;
  1282. roomrec[27].S.Field5=CF2_SPECIAL;
  1283. roomrec[27].S.Field6=CF1;
  1284. roomrec[27].S.Field7=REG_MED_CLOSE_FILL;
  1285. roomrec[27].S.floor=1;
  1286. /********************************************/
  1287.  
  1288. /********************************************/
  1289. roomrec[27].E.Field1=CL;
  1290. roomrec[27].E.Field2=MF3222;
  1291. roomrec[27].E.Field3=MF1621;
  1292. roomrec[27].E.Field4=MF642;
  1293. roomrec[27].E.Field5=MF1622;
  1294. roomrec[27].E.Field6=MR;
  1295. roomrec[27].E.Field7=CR;
  1296. roomrec[27].E.floor=1;
  1297. /********************************************/
  1298.  
  1299. /********************************************/
  1300. roomrec[27].W.Field1=CL;
  1301. roomrec[27].W.Field2=MF3222;
  1302. roomrec[27].W.Field3=MF1621;
  1303. roomrec[27].W.Field4=MF642;
  1304. roomrec[27].W.Field5=MF1622;
  1305. roomrec[27].W.Field6=MR;
  1306. roomrec[27].W.Field7=CR;
  1307. roomrec[27].W.floor=1;
  1308. /********************************************/
  1309.  
  1310.  
  1311. /********************************************/
  1312. roomrec[28].N.Field1=CF1;
  1313. roomrec[28].N.Field2=ML;
  1314. roomrec[28].N.Field3=FL;
  1315. roomrec[28].N.Field4=EMPTY;
  1316. roomrec[28].N.Field5=FR;
  1317. roomrec[28].N.Field6=MR;
  1318. roomrec[28].N.Field7=CR;
  1319. roomrec[28].N.floor=0;
  1320. /********************************************/
  1321.  
  1322. /********************************************/
  1323. roomrec[28].S.Field1=CL;
  1324. roomrec[28].S.Field2=CF1;
  1325. roomrec[28].S.Field3=CF2_SPECIAL;
  1326. roomrec[28].S.Field4=CF64;
  1327. roomrec[28].S.Field5=CF1_SPECIAL;
  1328. roomrec[28].S.Field6=CF2;
  1329. roomrec[28].S.Field7=CF1;
  1330. roomrec[28].S.floor=0;
  1331. /********************************************/
  1332.  
  1333. /********************************************/
  1334. roomrec[28].E.Field1=CF1;
  1335. roomrec[28].E.Field2=CF2;
  1336. roomrec[28].E.Field3=CF1_SPECIAL;
  1337. roomrec[28].E.Field4=CF64;
  1338. roomrec[28].E.Field5=CF2_SPECIAL;
  1339. roomrec[28].E.Field6=CF1;
  1340. roomrec[28].E.Field7=CR;
  1341. roomrec[28].E.floor=0;
  1342. /********************************************/
  1343.  
  1344. /********************************************/
  1345. roomrec[28].W.Field1=CL;
  1346. roomrec[28].W.Field2=ML;
  1347. roomrec[28].W.Field3=FF1611;
  1348. roomrec[28].W.Field4=FF641;
  1349. roomrec[28].W.Field5=FR;
  1350. roomrec[28].W.Field6=MR;
  1351. roomrec[28].W.Field7=CF2;
  1352. roomrec[28].W.floor=0;
  1353. /********************************************/
  1354.  
  1355.  
  1356.  
  1357. /********************************************/
  1358. roomrec[29].N.Field1=CL;
  1359. roomrec[29].N.Field2=ML;
  1360. roomrec[29].N.Field3=FL_GATE;
  1361. roomrec[29].N.Field4=FAR_GATE;
  1362. roomrec[29].N.Field5=FR_GATE;
  1363. roomrec[29].N.Field6=MR;
  1364. roomrec[29].N.Field7=CR;
  1365. roomrec[29].N.floor=1;
  1366. /********************************************/
  1367.  
  1368. /********************************************/
  1369. roomrec[29].S.Field1=CL;
  1370. roomrec[29].S.Field2=ML;
  1371. roomrec[29].S.Field3=FL;
  1372. roomrec[29].S.Field4=EMPTY;
  1373. roomrec[29].S.Field5=FR;
  1374. roomrec[29].S.Field6=MR;
  1375. roomrec[29].S.Field7=CR;
  1376. roomrec[29].S.floor=1;
  1377. /********************************************/
  1378.  
  1379. /********************************************/
  1380. roomrec[29].E.Field1=CF1;
  1381. roomrec[29].E.Field2=CF2;
  1382. roomrec[29].E.Field3=CF1_SPECIAL;
  1383. roomrec[29].E.Field4=CF64;
  1384. roomrec[29].E.Field5=CF2_SPECIAL;
  1385. roomrec[29].E.Field6=CF1;
  1386. roomrec[29].E.Field7=CF2;
  1387. roomrec[29].E.floor=1;
  1388. /********************************************/
  1389.  
  1390. /********************************************/
  1391. roomrec[29].W.Field1=CF1;
  1392. roomrec[29].W.Field2=CF1;
  1393. roomrec[29].W.Field3=CF1_SPECIAL;
  1394. roomrec[29].W.Field4=CF64;
  1395. roomrec[29].W.Field5=CF2_SPECIAL;
  1396. roomrec[29].W.Field6=CF1;
  1397. roomrec[29].W.Field7=CF2;
  1398. roomrec[29].W.floor=1;
  1399. /********************************************/
  1400.  
  1401.  
  1402. /********************************************/
  1403. roomrec[30].N.Field1=CL;
  1404. roomrec[30].N.Field2=ML;
  1405. roomrec[30].N.Field3=FL;
  1406. roomrec[30].N.Field4=FF642;
  1407. roomrec[30].N.Field5=FF1622;
  1408. roomrec[30].N.Field6=MR;
  1409. roomrec[30].N.Field7=CR;
  1410. roomrec[30].N.floor=1;
  1411. /********************************************/
  1412.  
  1413. /********************************************/
  1414. roomrec[30].S.Field1=CL;
  1415. roomrec[30].S.Field2=ML;
  1416. roomrec[30].S.Field3=MF1621;
  1417. roomrec[30].S.Field4=MF642;
  1418. roomrec[30].S.Field5=MF1622;
  1419. roomrec[30].S.Field6=MR;
  1420. roomrec[30].S.Field7=CR;
  1421. roomrec[30].S.floor=1;
  1422. /********************************************/
  1423.  
  1424. /********************************************/
  1425. roomrec[30].E.Field1=CF1;
  1426. roomrec[30].E.Field2=CF2;
  1427. roomrec[30].E.Field3=CF1_SPECIAL;
  1428. roomrec[30].E.Field4=CF64;
  1429. roomrec[30].E.Field5=CF2_SPECIAL;
  1430. roomrec[30].E.Field6=CF1;
  1431. roomrec[30].E.Field7=CF2;
  1432. roomrec[30].E.floor=1;
  1433. /********************************************/
  1434.  
  1435. /********************************************/
  1436. roomrec[30].W.Field1=CF1;
  1437. roomrec[30].W.Field2=CF1;
  1438. roomrec[30].W.Field3=CF1_SPECIAL;
  1439. roomrec[30].W.Field4=CF64;
  1440. roomrec[30].W.Field5=CF2_SPECIAL;
  1441. roomrec[30].W.Field6=CF1;
  1442. roomrec[30].W.Field7=CF2;
  1443. roomrec[30].W.floor=1;
  1444. /********************************************/
  1445.  
  1446.  
  1447. /********************************************/
  1448. roomrec[31].N.Field1=CL;
  1449. roomrec[31].N.Field2=ML;
  1450. roomrec[31].N.Field3=MF1621;
  1451. roomrec[31].N.Field4=MF642;
  1452. roomrec[31].N.Field5=MF1622;
  1453. roomrec[31].N.Field6=MF3222;
  1454. roomrec[31].N.Field7=CR;
  1455. roomrec[31].N.floor=1;
  1456. /********************************************/
  1457.  
  1458. /********************************************/
  1459. roomrec[31].S.Field1=CL;
  1460. roomrec[31].S.Field2=ML;
  1461. roomrec[31].S.Field3=FL;
  1462. roomrec[31].S.Field4=EMPTY;
  1463. roomrec[31].S.Field5=FR;
  1464. roomrec[31].S.Field6=MR;
  1465. roomrec[31].S.Field7=CR;
  1466. roomrec[31].S.floor=1;
  1467. /********************************************/
  1468.  
  1469. /********************************************/
  1470. roomrec[31].E.Field1=REG_MED_CLOSE_FILL;
  1471. roomrec[31].E.Field2=CF2;
  1472. roomrec[31].E.Field3=CF1_SPECIAL;
  1473. roomrec[31].E.Field4=CF64;
  1474. roomrec[31].E.Field5=CF2_SPECIAL;
  1475. roomrec[31].E.Field6=CF1;
  1476. roomrec[31].E.Field7=CF2;
  1477. roomrec[31].E.floor=1;
  1478. /********************************************/
  1479.  
  1480. /********************************************/
  1481. roomrec[31].W.Field1=CF1;
  1482. roomrec[31].W.Field2=CF1;
  1483. roomrec[31].W.Field3=CF1_SPECIAL;
  1484. roomrec[31].W.Field4=CF64;
  1485. roomrec[31].W.Field5=CF2_SPECIAL;
  1486. roomrec[31].W.Field6=CF1;
  1487. roomrec[31].W.Field7=CF2;
  1488. roomrec[31].W.floor=1;
  1489. /********************************************/
  1490.  
  1491.  
  1492.  
  1493. /********************************************/
  1494. roomrec[32].N.Field1=CL;
  1495. roomrec[32].N.Field2=CF1;
  1496. roomrec[32].N.Field3=CF2_SPECIAL;
  1497. roomrec[32].N.Field4=CF64;
  1498. roomrec[32].N.Field5=CF2_SPECIAL;
  1499. roomrec[32].N.Field6=CF1;
  1500. roomrec[32].N.Field7=CF2;
  1501. roomrec[32].N.floor=1;
  1502. /********************************************/
  1503.  
  1504. /********************************************/
  1505. roomrec[32].S.Field1=CF1;
  1506. roomrec[32].S.Field2=ML;
  1507. roomrec[32].S.Field3=FF1621;
  1508. roomrec[32].S.Field4=FF642;
  1509. roomrec[32].S.Field5=FR;
  1510. roomrec[32].S.Field6=MR;
  1511. roomrec[32].S.Field7=CR;
  1512. roomrec[32].S.floor=1;
  1513. /********************************************/
  1514.  
  1515. /********************************************/
  1516. roomrec[32].E.Field1=CL;
  1517. roomrec[32].E.Field2=ML;
  1518. roomrec[32].E.Field3=MF1621;
  1519. roomrec[32].E.Field4=MF642;
  1520. roomrec[32].E.Field5=MF1622;
  1521. roomrec[32].E.Field6=MR;
  1522. roomrec[32].E.Field7=CF2;
  1523. roomrec[32].E.floor=1;
  1524. /********************************************/
  1525.  
  1526. /********************************************/
  1527. roomrec[32].W.Field1=CF1;
  1528. roomrec[32].W.Field2=CF1;
  1529. roomrec[32].W.Field3=CF1_SPECIAL;
  1530. roomrec[32].W.Field4=CF64;
  1531. roomrec[32].W.Field5=CF2_SPECIAL;
  1532. roomrec[32].W.Field6=CF1;
  1533. roomrec[32].W.Field7=CR;
  1534. roomrec[32].W.floor=1;
  1535. /********************************************/
  1536.  
  1537.  
  1538.  
  1539. /********************************************/
  1540. roomrec[33].N.Field1=CF1;
  1541. roomrec[33].N.Field2=CF2;
  1542. roomrec[33].N.Field3=CF2_SPECIAL;
  1543. roomrec[33].N.Field4=CF64;
  1544. roomrec[33].N.Field5=CF2_SPECIAL;
  1545. roomrec[33].N.Field6=CF1;
  1546. roomrec[33].N.Field7=CR;
  1547. roomrec[33].N.floor=0;
  1548. /********************************************/
  1549.  
  1550. /********************************************/
  1551. roomrec[33].S.Field1=CL;
  1552. roomrec[33].S.Field2=CF1;
  1553. roomrec[33].S.Field3=CF2_SPECIAL;
  1554. roomrec[33].S.Field4=CF64;
  1555. roomrec[33].S.Field5=CF1_SPECIAL;
  1556. roomrec[33].S.Field6=CF2;
  1557. roomrec[33].S.Field7=REG_MED_CLOSE_FILL;
  1558. roomrec[33].S.floor=0;
  1559. /********************************************/
  1560.  
  1561. /********************************************/
  1562. roomrec[33].E.Field1=CL;
  1563. roomrec[33].E.Field2=CF1;
  1564. roomrec[33].E.Field3=CF1_SPECIAL;
  1565. roomrec[33].E.Field4=CF64;
  1566. roomrec[33].E.Field5=CF2_SPECIAL;
  1567. roomrec[33].E.Field6=CF1;
  1568. roomrec[33].E.Field7=CR;
  1569. roomrec[33].E.floor=0;
  1570. /********************************************/
  1571.  
  1572. /********************************************/
  1573. roomrec[33].W.Field1=CL;
  1574. roomrec[33].W.Field2=MF3212;
  1575. roomrec[33].W.Field3=MF1611;
  1576. roomrec[33].W.Field4=MF641;
  1577. roomrec[33].W.Field5=MF1612;
  1578. roomrec[33].W.Field6=MR;
  1579. roomrec[33].W.Field7=CR;
  1580. roomrec[33].W.floor=0;
  1581. /********************************************/
  1582.  
  1583.  
  1584.  
  1585. /********************************************/
  1586. roomrec[34].N.Field1=CL;
  1587. roomrec[34].N.Field2=ML;
  1588. roomrec[34].N.Field3=FL;
  1589. roomrec[34].N.Field4=EMPTY;
  1590. roomrec[34].N.Field5=FR;
  1591. roomrec[34].N.Field6=MR;
  1592. roomrec[34].N.Field7=CR;
  1593. roomrec[34].N.floor=0;
  1594. /********************************************/
  1595.  
  1596. /********************************************/
  1597. roomrec[34].S.Field1=CL;
  1598. roomrec[34].S.Field2=ML;
  1599. roomrec[34].S.Field3=FF1611;
  1600. roomrec[34].S.Field4=FF641;
  1601. roomrec[34].S.Field5=FF1612;
  1602. roomrec[34].S.Field6=MR;
  1603. roomrec[34].S.Field7=CR;
  1604. roomrec[34].S.floor=0;
  1605. /********************************************/
  1606.  
  1607. /********************************************/
  1608. roomrec[34].E.Field1=CF2;
  1609. roomrec[34].E.Field2=CF1;
  1610. roomrec[34].E.Field3=CF2_SPECIAL;
  1611. roomrec[34].E.Field4=CF64;
  1612. roomrec[34].E.Field5=CF1_SPECIAL;
  1613. roomrec[34].E.Field6=CF2;
  1614. roomrec[34].E.Field7=CF1;
  1615. roomrec[34].E.floor=0;
  1616. /********************************************/
  1617.  
  1618. /********************************************/
  1619. roomrec[34].W.Field1=CF2;
  1620. roomrec[34].W.Field2=CF1;
  1621. roomrec[34].W.Field3=CF2_SPECIAL;
  1622. roomrec[34].W.Field4=CF64;
  1623. roomrec[34].W.Field5=CF1_SPECIAL;
  1624. roomrec[34].W.Field6=CF2;
  1625. roomrec[34].W.Field7=CF1;
  1626. roomrec[34].W.floor=0;
  1627. /********************************************/
  1628.  
  1629.  
  1630. /********************************************/
  1631. roomrec[35].N.Field1=CL;
  1632. roomrec[35].N.Field2=ML;
  1633. roomrec[35].N.Field3=FL;
  1634. roomrec[35].N.Field4=EMPTY;
  1635. roomrec[35].N.Field5=FR;
  1636. roomrec[35].N.Field6=MR;
  1637. roomrec[35].N.Field7=CR;
  1638. roomrec[35].N.floor=0;
  1639. /********************************************/
  1640.  
  1641. /********************************************/
  1642. roomrec[35].S.Field1=CL;
  1643. roomrec[35].S.Field2=CF1;
  1644. roomrec[35].S.Field3=CF2;
  1645. roomrec[35].S.Field4=CF64;
  1646. roomrec[35].S.Field5=CF2;
  1647. roomrec[35].S.Field6=CF1;
  1648. roomrec[35].S.Field7=CR;
  1649. roomrec[35].S.floor=0;
  1650. /********************************************/
  1651.  
  1652. /********************************************/
  1653. roomrec[35].E.Field1=CF1;
  1654. roomrec[35].E.Field2=CF2;
  1655. roomrec[35].E.Field3=CF1;
  1656. roomrec[35].E.Field4=CF64;
  1657. roomrec[35].E.Field5=CF1;
  1658. roomrec[35].E.Field6=CF2;
  1659. roomrec[35].E.Field7=CR;
  1660. roomrec[35].E.floor=0;
  1661. /********************************************/
  1662.  
  1663. /********************************************/
  1664. roomrec[35].W.Field1=CL;
  1665. roomrec[35].W.Field2=CF1;
  1666. roomrec[35].W.Field3=CF2_SPECIAL;
  1667. roomrec[35].W.Field4=CF64;
  1668. roomrec[35].W.Field5=CF1_SPECIAL;
  1669. roomrec[35].W.Field6=CF2;
  1670. roomrec[35].W.Field7=CF1;
  1671. roomrec[35].W.floor=0;
  1672. /********************************************/
  1673.  
  1674.  
  1675. /********************************************/
  1676. roomrec[36].N.Field1=CL;
  1677. roomrec[36].N.Field2=CF1;
  1678. roomrec[36].N.Field3=CF2;
  1679. roomrec[36].N.Field4=CF64;
  1680. roomrec[36].N.Field5=CF2;
  1681. roomrec[36].N.Field6=CF1;
  1682. roomrec[36].N.Field7=CR;
  1683. roomrec[36].N.floor=0;
  1684. /********************************************/
  1685.  
  1686. /********************************************/
  1687. roomrec[36].S.Field1=CL;
  1688. roomrec[36].S.Field2=ML;
  1689. roomrec[36].S.Field3=FF1611;
  1690. roomrec[36].S.Field4=FF641;
  1691. roomrec[36].S.Field5=FF1612;
  1692. roomrec[36].S.Field6=MR;
  1693. roomrec[36].S.Field7=CR;
  1694. roomrec[36].S.floor=0;
  1695. /********************************************/
  1696.  
  1697. /********************************************/
  1698. roomrec[36].E.Field1=CL;
  1699. roomrec[36].E.Field2=CF1;
  1700. roomrec[36].E.Field3=CF2;
  1701. roomrec[36].E.Field4=CF64;
  1702. roomrec[36].E.Field5=CF2;
  1703. roomrec[36].E.Field6=CF1;
  1704. roomrec[36].E.Field7=CF2;
  1705. roomrec[36].E.floor=0;
  1706. /********************************************/
  1707.  
  1708. /********************************************/
  1709. roomrec[36].W.Field1=CF1;
  1710. roomrec[36].W.Field2=CF2;
  1711. roomrec[36].W.Field3=CF1;
  1712. roomrec[36].W.Field4=CF64;
  1713. roomrec[36].W.Field5=CF1;
  1714. roomrec[36].W.Field6=CF2;
  1715. roomrec[36].W.Field7=CR;
  1716. roomrec[36].W.floor=0;
  1717. /********************************************/
  1718.  
  1719. /********************************************/
  1720. roomrec[37].N.Field1=CL;
  1721. roomrec[37].N.Field2=ML;
  1722. roomrec[37].N.Field3=FL;
  1723. roomrec[37].N.Field4=FF641;
  1724. roomrec[37].N.Field5=FF1612;
  1725. roomrec[37].N.Field6=MR;
  1726. roomrec[37].N.Field7=CR;
  1727. roomrec[37].N.floor=0;
  1728. /********************************************/
  1729.  
  1730. /********************************************/
  1731. roomrec[37].S.Field1=CL;
  1732. roomrec[37].S.Field2=ML;
  1733. roomrec[37].S.Field3=FL;
  1734. roomrec[37].S.Field4=FF641;
  1735. roomrec[37].S.Field5=FF1612;
  1736. roomrec[37].S.Field6=MR;
  1737. roomrec[37].S.Field7=CR;
  1738. roomrec[37].S.floor=0;
  1739. /********************************************/
  1740.  
  1741. /********************************************/
  1742. roomrec[37].E.Field1=CF1;
  1743. roomrec[37].E.Field2=CF2;
  1744. roomrec[37].E.Field3=CF1;
  1745. roomrec[37].E.Field4=CF64;
  1746. roomrec[37].E.Field5=CF1;
  1747. roomrec[37].E.Field6=CF2;
  1748. roomrec[37].E.Field7=CF1;
  1749. roomrec[37].E.floor=0;
  1750. /********************************************/
  1751.  
  1752. /********************************************/
  1753. roomrec[37].W.Field1=CF1;
  1754. roomrec[37].W.Field2=CF2;
  1755. roomrec[37].W.Field3=CF1;
  1756. roomrec[37].W.Field4=CF64;
  1757. roomrec[37].W.Field5=CF1;
  1758. roomrec[37].W.Field6=CF2;
  1759. roomrec[37].W.Field7=CF1;
  1760. roomrec[37].W.floor=0;
  1761. /********************************************/
  1762.  
  1763. /********************************************/
  1764. roomrec[38].N.Field1=CL;
  1765. roomrec[38].N.Field2=ML;
  1766. roomrec[38].N.Field3=MF1611;
  1767. roomrec[38].N.Field4=MF641;
  1768. roomrec[38].N.Field5=MF1612;
  1769. roomrec[38].N.Field6=MF3212;
  1770. roomrec[38].N.Field7=CR;
  1771. roomrec[38].N.floor=0;
  1772. /********************************************/
  1773.  
  1774. /********************************************/
  1775. roomrec[38].S.Field1=CL;
  1776. roomrec[38].S.Field2=MF3211;
  1777. roomrec[38].S.Field3=MF1611;
  1778. roomrec[38].S.Field4=MF641;
  1779. roomrec[38].S.Field5=MF1612;
  1780. roomrec[38].S.Field6=MR;
  1781. roomrec[38].S.Field7=CR;
  1782. roomrec[38].S.floor=0;
  1783. /********************************************/
  1784.  
  1785. /********************************************/
  1786. roomrec[38].E.Field1=FF3211;
  1787. roomrec[38].E.Field2=CF1;
  1788. roomrec[38].E.Field3=CF2;
  1789. roomrec[38].E.Field4=CF64;
  1790. roomrec[38].E.Field5=CF2;
  1791. roomrec[38].E.Field6=CF1;
  1792. roomrec[38].E.Field7=CF2;
  1793. roomrec[38].E.floor=0;
  1794. /********************************************/
  1795.  
  1796. /********************************************/
  1797. roomrec[38].W.Field1=CF2;
  1798. roomrec[38].W.Field2=CF1;
  1799. roomrec[38].W.Field3=CF2;
  1800. roomrec[38].W.Field4=CF64;
  1801. roomrec[38].W.Field5=CF1;
  1802. roomrec[38].W.Field6=CF2;
  1803. roomrec[38].W.Field7=CF1;
  1804. roomrec[38].W.floor=0;
  1805. /********************************************/
  1806.  
  1807. /********************************************/
  1808. roomrec[39].N.Field1=CL;
  1809. roomrec[39].N.Field2=ML;
  1810. roomrec[39].N.Field3=FL;
  1811. roomrec[39].N.Field4=EMPTY;
  1812. roomrec[39].N.Field5=FR;
  1813. roomrec[39].N.Field6=MR;
  1814. roomrec[39].N.Field7=CR;
  1815. roomrec[39].N.floor=1;
  1816. /********************************************/
  1817.  
  1818. /********************************************/
  1819. roomrec[39].S.Field1=CL;
  1820. roomrec[39].S.Field2=MF3222;
  1821. roomrec[39].S.Field3=MF1621;
  1822. roomrec[39].S.Field4=MF642;
  1823. roomrec[39].S.Field5=MF1622;
  1824. roomrec[39].S.Field6=MF3222;
  1825. roomrec[39].S.Field7=CR;
  1826. roomrec[39].S.floor=1;
  1827. /********************************************/
  1828.  
  1829. /********************************************/
  1830. roomrec[39].E.Field1=CF1;
  1831. roomrec[39].E.Field2=CF2;
  1832. roomrec[39].E.Field3=CF1;
  1833. roomrec[39].E.Field4=CF64;
  1834. roomrec[39].E.Field5=CF1;
  1835. roomrec[39].E.Field6=CF2;
  1836. roomrec[39].E.Field7=REG_MED_CLOSE_FILL;
  1837. roomrec[39].E.floor=1;
  1838. /********************************************/
  1839.  
  1840. /********************************************/
  1841. roomrec[39].W.Field1=REG_MED_CLOSE_FILL;
  1842. roomrec[39].W.Field2=CF1;
  1843. roomrec[39].W.Field3=CF2;
  1844. roomrec[39].W.Field4=CF64;
  1845. roomrec[39].W.Field5=CF2;
  1846. roomrec[39].W.Field6=CF1;
  1847. roomrec[39].W.Field7=CF2;
  1848. roomrec[39].W.floor=1;
  1849. /********************************************/
  1850.  
  1851.  
  1852. /********************************************/
  1853. roomrec[40].N.Field1=CL;
  1854. roomrec[40].N.Field2=ML;
  1855. roomrec[40].N.Field3=MF1621;
  1856. roomrec[40].N.Field4=MF642;
  1857. roomrec[40].N.Field5=MF1622;
  1858. roomrec[40].N.Field6=MR;
  1859. roomrec[40].N.Field7=CR;
  1860. roomrec[40].N.floor=1;
  1861. /********************************************/
  1862.  
  1863. /********************************************/
  1864. roomrec[40].S.Field1=CL;
  1865. roomrec[40].S.Field2=MF3222;
  1866. roomrec[40].S.Field3=MF1621;
  1867. roomrec[40].S.Field4=MF642;
  1868. roomrec[40].S.Field5=MF1622;
  1869. roomrec[40].S.Field6=MF3222;
  1870. roomrec[40].S.Field7=CR;
  1871. roomrec[40].S.floor=1;
  1872. /********************************************/
  1873.  
  1874. /********************************************/
  1875. roomrec[40].E.Field1=CF1;
  1876. roomrec[40].E.Field2=CF2;
  1877. roomrec[40].E.Field3=CF1;
  1878. roomrec[40].E.Field4=CF64;
  1879. roomrec[40].E.Field5=CF1;
  1880. roomrec[40].E.Field6=CF2;
  1881. roomrec[40].E.Field7=REG_MED_CLOSE_FILL;
  1882. roomrec[40].E.floor=1;
  1883. /********************************************/
  1884.  
  1885. /********************************************/
  1886. roomrec[40].W.Field1=REG_MED_CLOSE_FILL;
  1887. roomrec[40].W.Field2=CF1;
  1888. roomrec[40].W.Field3=CF2;
  1889. roomrec[40].W.Field4=CF64;
  1890. roomrec[40].W.Field5=CF2;
  1891. roomrec[40].W.Field6=CF1;
  1892. roomrec[40].W.Field7=CR;
  1893. roomrec[40].W.floor=1;
  1894. /********************************************/
  1895.  
  1896. /********************************************/
  1897. roomrec[41].N.Field1=CL;
  1898. roomrec[41].N.Field2=ML;
  1899. roomrec[41].N.Field3=FL;
  1900. roomrec[41].N.Field4=EMPTY;
  1901. roomrec[41].N.Field5=FR;
  1902. roomrec[41].N.Field6=MR;
  1903. roomrec[41].N.Field7=CR;
  1904. roomrec[41].N.floor=1;
  1905. /********************************************/
  1906.  
  1907. /********************************************/
  1908. roomrec[41].S.Field1=CL;
  1909. roomrec[41].S.Field2=ML;
  1910. roomrec[41].S.Field3=MF1621;
  1911. roomrec[41].S.Field4=MF642;
  1912. roomrec[41].S.Field5=MF1622;
  1913. roomrec[41].S.Field6=MF3222;
  1914. roomrec[41].S.Field7=CR;
  1915. roomrec[41].S.floor=1;
  1916. /********************************************/
  1917.  
  1918. /********************************************/
  1919. roomrec[41].E.Field1=CF1;
  1920. roomrec[41].E.Field2=CF2;
  1921. roomrec[41].E.Field3=CF1;
  1922. roomrec[41].E.Field4=CF64;
  1923. roomrec[41].E.Field5=CF1;
  1924. roomrec[41].E.Field6=CF2;
  1925. roomrec[41].E.Field7=CF1;
  1926. roomrec[41].E.floor=1;
  1927. /********************************************/
  1928.  
  1929. /********************************************/
  1930. roomrec[41].W.Field1=REG_MED_CLOSE_FILL;
  1931. roomrec[41].W.Field2=CF1;
  1932. roomrec[41].W.Field3=CF2;
  1933. roomrec[41].W.Field4=CF64;
  1934. roomrec[41].W.Field5=CF2;
  1935. roomrec[41].W.Field6=CF1;
  1936. roomrec[41].W.Field7=CF2;
  1937. roomrec[41].W.floor=1;
  1938. /********************************************/
  1939.  
  1940. /********************************************/
  1941. roomrec[42].N.Field1=CL;
  1942. roomrec[42].N.Field2=ML;
  1943. roomrec[42].N.Field3=FL;
  1944. roomrec[42].N.Field4=FF642;
  1945. roomrec[42].N.Field5=FF1622;
  1946. roomrec[42].N.Field6=MR;
  1947. roomrec[42].N.Field7=CF1;
  1948. roomrec[42].N.floor=1;
  1949. /********************************************/
  1950.  
  1951. /********************************************/
  1952. roomrec[42].S.Field1=CF1;
  1953. roomrec[42].S.Field2=CF2;
  1954. roomrec[42].S.Field3=CF1;
  1955. roomrec[42].S.Field4=CF64;
  1956. roomrec[42].S.Field5=CF1;
  1957. roomrec[42].S.Field6=CF2;
  1958. roomrec[42].S.Field7=CR;
  1959. roomrec[42].S.floor=1;
  1960. /********************************************/
  1961.  
  1962.  
  1963. /********************************************/
  1964. roomrec[42].E.Field1=CF2;
  1965. roomrec[42].E.Field2=ML;
  1966. roomrec[42].E.Field3=FL;
  1967. roomrec[42].E.Field4=EMPTY;
  1968. roomrec[42].E.Field5=FR;
  1969. roomrec[42].E.Field6=MR;
  1970. roomrec[42].E.Field7=CR;
  1971. roomrec[42].E.floor=1;
  1972. /********************************************/
  1973.  
  1974. /********************************************/
  1975. roomrec[42].W.Field1=CL;
  1976. roomrec[42].W.Field2=CF1;
  1977. roomrec[42].W.Field3=CF2;
  1978. roomrec[42].W.Field4=CF64;
  1979. roomrec[42].W.Field5=CF1;
  1980. roomrec[42].W.Field6=CF2;
  1981. roomrec[42].W.Field7=CF1;
  1982. roomrec[42].W.floor=1;
  1983. /********************************************/
  1984.  
  1985. /********************************************/
  1986. roomrec[43].N.Field1=REG_MED_CLOSE_FILL;
  1987. roomrec[43].N.Field2=CF1;
  1988. roomrec[43].N.Field3=CF2;
  1989. roomrec[43].N.Field4=CF64;
  1990. roomrec[43].N.Field5=CF2;
  1991. roomrec[43].N.Field6=CF1;
  1992. roomrec[43].N.Field7=CF2;
  1993. roomrec[43].N.floor=0;
  1994. /********************************************/
  1995.  
  1996. /********************************************/
  1997. roomrec[43].S.Field1=CF2;
  1998. roomrec[43].S.Field2=CF1;
  1999. roomrec[43].S.Field3=CF2;
  2000. roomrec[43].S.Field4=CF64;
  2001. roomrec[43].S.Field5=CF1;
  2002. roomrec[43].S.Field6=CF2;
  2003. roomrec[43].S.Field7=CF1;
  2004. roomrec[43].S.floor=0;
  2005. /********************************************/
  2006.  
  2007. /********************************************/
  2008. roomrec[43].E.Field1=CL;
  2009. roomrec[43].E.Field2=ML;
  2010. roomrec[43].E.Field3=REG_FAR_FILL;
  2011. roomrec[43].E.Field4=EMPTY;
  2012. roomrec[43].E.Field5=FR;
  2013. roomrec[43].E.Field6=MR;
  2014. roomrec[43].E.Field7=CR;
  2015. roomrec[43].E.floor=0;
  2016. /********************************************/
  2017.  
  2018. /********************************************/
  2019. roomrec[43].W.Field1=CL;
  2020. roomrec[43].W.Field2=ML;
  2021. roomrec[43].W.Field3=MF1611;
  2022. roomrec[43].W.Field4=MF641;
  2023. roomrec[43].W.Field5=MF1612;
  2024. roomrec[43].W.Field6=MF3212;
  2025. roomrec[43].W.Field7=CR;
  2026. roomrec[43].W.floor=0;
  2027. /********************************************/
  2028.  
  2029. /********************************************/
  2030. roomrec[44].N.Field1=CF1;
  2031. roomrec[44].N.Field2=CF2;
  2032. roomrec[44].N.Field3=CF1;
  2033. roomrec[44].N.Field4=CF64;
  2034. roomrec[44].N.Field5=CF1;
  2035. roomrec[44].N.Field6=CF2;
  2036. roomrec[44].N.Field7=REG_MED_CLOSE_FILL;
  2037. roomrec[44].N.floor=1;
  2038. /********************************************/
  2039.  
  2040. /********************************************/
  2041. roomrec[44].S.Field1=CF1;
  2042. roomrec[44].S.Field2=CF2;
  2043. roomrec[44].S.Field3=CF1;
  2044. roomrec[44].S.Field4=CF64;
  2045. roomrec[44].S.Field5=CF2;
  2046. roomrec[44].S.Field6=CF1;
  2047. roomrec[44].S.Field7=CF2;
  2048. roomrec[44].S.floor=1;
  2049. /********************************************/
  2050.  
  2051. /********************************************/
  2052. roomrec[44].E.Field1=CL;
  2053. roomrec[44].E.Field2=MF3221;
  2054. roomrec[44].E.Field3=FL;
  2055. roomrec[44].E.Field4=EMPTY;
  2056. roomrec[44].E.Field5=FR;
  2057. roomrec[44].E.Field6=MR;
  2058. roomrec[44].E.Field7=CR;
  2059. roomrec[44].E.floor=1;
  2060. /********************************************/
  2061.  
  2062. /********************************************/
  2063. roomrec[44].W.Field1=CL;
  2064. roomrec[44].W.Field2=ML;
  2065. roomrec[44].W.Field3=FL;
  2066. roomrec[44].W.Field4=FF642;
  2067. roomrec[44].W.Field5=FF1622;
  2068. roomrec[44].W.Field6=MR;
  2069. roomrec[44].W.Field7=CR;
  2070. roomrec[44].W.floor=1;
  2071. /********************************************/
  2072.  
  2073. /********************************************/
  2074. roomrec[45].N.Field1=CF2;
  2075. roomrec[45].N.Field2=ML;
  2076. roomrec[45].N.Field3=FL;
  2077. roomrec[45].N.Field4=EMPTY;
  2078. roomrec[45].N.Field5=FR;
  2079. roomrec[45].N.Field6=MR;
  2080. roomrec[45].N.Field7=CF1;
  2081. roomrec[45].N.floor=0;
  2082. /********************************************/
  2083.  
  2084. /********************************************/
  2085. roomrec[45].S.Field1=CF2;
  2086. roomrec[45].S.Field2=CF1;
  2087. roomrec[45].S.Field3=CF2;
  2088. roomrec[45].S.Field4=CF64;
  2089. roomrec[45].S.Field5=CF1;
  2090. roomrec[45].S.Field6=CF2;
  2091. roomrec[45].S.Field7=CF1;
  2092. roomrec[45].S.floor=0;
  2093. /********************************************/
  2094.  
  2095. /********************************************/
  2096. roomrec[45].E.Field1=CF2;
  2097. roomrec[45].E.Field2=ML;
  2098. roomrec[45].E.Field3=FL;
  2099. roomrec[45].E.Field4=EMPTY;
  2100. roomrec[45].E.Field5=FR;
  2101. roomrec[45].E.Field6=MR;
  2102. roomrec[45].E.Field7=CR;
  2103. roomrec[45].E.floor=0;
  2104. /********************************************/
  2105.  
  2106. /********************************************/
  2107. roomrec[45].W.Field1=CL;
  2108. roomrec[45].W.Field2=ML;
  2109. roomrec[45].W.Field3=FL;
  2110. roomrec[45].W.Field4=EMPTY;
  2111. roomrec[45].W.Field5=FR;
  2112. roomrec[45].W.Field6=MR;
  2113. roomrec[45].W.Field7=CF1;
  2114. roomrec[45].W.floor=0;
  2115. /********************************************/
  2116.  
  2117. /********************************************/
  2118. roomrec[46].N.Field1=REG_MED_CLOSE_FILL;
  2119. roomrec[46].N.Field2=CF1;
  2120. roomrec[46].N.Field3=CF2;
  2121. roomrec[46].N.Field4=CF64;
  2122. roomrec[46].N.Field5=CF2;
  2123. roomrec[46].N.Field6=CF1;
  2124. roomrec[46].N.Field7=CF2;
  2125. roomrec[46].N.floor=1;
  2126. /********************************************/
  2127.  
  2128. /********************************************/
  2129. roomrec[46].S.Field1=CF1;
  2130. roomrec[46].S.Field2=CF2;
  2131. roomrec[46].S.Field3=CF1;
  2132. roomrec[46].S.Field4=CF64;
  2133. roomrec[46].S.Field5=CF1;
  2134. roomrec[46].S.Field6=CF2;
  2135. roomrec[46].S.Field7=CF1;
  2136. roomrec[46].S.floor=1;
  2137. /********************************************/
  2138.  
  2139. /********************************************/
  2140. roomrec[46].E.Field1=CL;
  2141. roomrec[46].E.Field2=ML;
  2142. roomrec[46].E.Field3=FL;
  2143. roomrec[46].E.Field4=EMPTY;
  2144. roomrec[46].E.Field5=FR;
  2145. roomrec[46].E.Field6=MR;
  2146. roomrec[46].E.Field7=CR;
  2147. roomrec[46].E.floor=1;
  2148. /********************************************/
  2149.  
  2150. /********************************************/
  2151. roomrec[46].W.Field1=CL;
  2152. roomrec[46].W.Field2=ML;
  2153. roomrec[46].W.Field3=FL;
  2154. roomrec[46].W.Field4=EMPTY;
  2155. roomrec[46].W.Field5=FR;
  2156. roomrec[46].W.Field6=MF3222;
  2157. roomrec[46].W.Field7=CR;
  2158. roomrec[46].W.floor=1;
  2159. /********************************************/
  2160.  
  2161. /********************************************/
  2162. roomrec[47].N.Field1=CF2;
  2163. roomrec[47].N.Field2=CF1;
  2164. roomrec[47].N.Field3=CF2;
  2165. roomrec[47].N.Field4=CF64;
  2166. roomrec[47].N.Field5=CF1;
  2167. roomrec[47].N.Field6=CF2;
  2168. roomrec[47].N.Field7=CF1;
  2169. roomrec[47].N.floor=0;
  2170. /********************************************/
  2171.  
  2172. /********************************************/
  2173. roomrec[47].S.Field1=CF1;
  2174. roomrec[47].S.Field2=CF2;
  2175. roomrec[47].S.Field3=CF1;
  2176. roomrec[47].S.Field4=CF64;
  2177. roomrec[47].S.Field5=CF2;
  2178. roomrec[47].S.Field6=CF1;
  2179. roomrec[47].S.Field7=CF2;
  2180. roomrec[47].S.floor=0;
  2181. /********************************************/
  2182.  
  2183. /********************************************/
  2184. roomrec[47].E.Field1=CL;
  2185. roomrec[47].E.Field2=ML;
  2186. roomrec[47].E.Field3=FL;
  2187. roomrec[47].E.Field4=EMPTY;
  2188. roomrec[47].E.Field5=FR;
  2189. roomrec[47].E.Field6=MR;
  2190. roomrec[47].E.Field7=CR;
  2191. roomrec[47].E.floor=0;
  2192. /********************************************/
  2193.  
  2194. /********************************************/
  2195. roomrec[47].W.Field1=CL;
  2196. roomrec[47].W.Field2=ML;
  2197. roomrec[47].W.Field3=FL;
  2198. roomrec[47].W.Field4=EMPTY;
  2199. roomrec[47].W.Field5=REG_FAR_FILL;
  2200. roomrec[47].W.Field6=MR;
  2201. roomrec[47].W.Field7=CR;
  2202. roomrec[47].W.floor=0;
  2203. /********************************************/
  2204.  
  2205. /********************************************/
  2206. roomrec[48].N.Field1=CF1;
  2207. roomrec[48].N.Field2=CF2;
  2208. roomrec[48].N.Field3=CF1;
  2209. roomrec[48].N.Field4=CF64;
  2210. roomrec[48].N.Field5=CF2;
  2211. roomrec[48].N.Field6=CF1;
  2212. roomrec[48].N.Field7=CF2;
  2213. roomrec[48].N.floor=1;
  2214. /********************************************/
  2215.  
  2216. /********************************************/
  2217. roomrec[48].S.Field1=CF2;
  2218. roomrec[48].S.Field2=CF1;
  2219. roomrec[48].S.Field3=CF2;
  2220. roomrec[48].S.Field4=CF64;
  2221. roomrec[48].S.Field5=CF1;
  2222. roomrec[48].S.Field6=CF2;
  2223. roomrec[48].S.Field7=CF1;
  2224. roomrec[48].S.floor=1;
  2225. /********************************************/
  2226.  
  2227. /********************************************/
  2228. roomrec[48].E.Field1=CL;
  2229. roomrec[48].E.Field2=ML;
  2230. roomrec[48].E.Field3=FL;
  2231. roomrec[48].E.Field4=EMPTY;
  2232. roomrec[48].E.Field5=FR;
  2233. roomrec[48].E.Field6=MR;
  2234. roomrec[48].E.Field7=CR;
  2235. roomrec[48].E.floor=1;
  2236. /********************************************/
  2237.  
  2238. /********************************************/
  2239. roomrec[48].W.Field1=CL;
  2240. roomrec[48].W.Field2=ML;
  2241. roomrec[48].W.Field3=FL;
  2242. roomrec[48].W.Field4=EMPTY;
  2243. roomrec[48].W.Field5=FR;
  2244. roomrec[48].W.Field6=MR;
  2245. roomrec[48].W.Field7=CR;
  2246. roomrec[48].W.floor=1;
  2247. /********************************************/
  2248.  
  2249. /********************************************/
  2250. roomrec[49].N.Field1=CF2;
  2251. roomrec[49].N.Field2=CF1;
  2252. roomrec[49].N.Field3=CF2;
  2253. roomrec[49].N.Field4=CF64;
  2254. roomrec[49].N.Field5=CF1;
  2255. roomrec[49].N.Field6=CF2;
  2256. roomrec[49].N.Field7=CF1;
  2257. roomrec[49].N.floor=0;
  2258. /********************************************/
  2259.  
  2260. /********************************************/
  2261. roomrec[49].S.Field1=CF1;
  2262. roomrec[49].S.Field2=CF2;
  2263. roomrec[49].S.Field3=CF1;
  2264. roomrec[49].S.Field4=CF64;
  2265. roomrec[49].S.Field5=CF2;
  2266. roomrec[49].S.Field6=CF1;
  2267. roomrec[49].S.Field7=CF2;
  2268. roomrec[49].S.floor=0;
  2269. /********************************************/
  2270.  
  2271. /********************************************/
  2272. roomrec[49].E.Field1=CL;
  2273. roomrec[49].E.Field2=ML;
  2274. roomrec[49].E.Field3=FF1611;
  2275. roomrec[49].E.Field4=FF641;
  2276. roomrec[49].E.Field5=FR;
  2277. roomrec[49].E.Field6=MR;
  2278. roomrec[49].E.Field7=CR;
  2279. roomrec[49].E.floor=0;
  2280. /********************************************/
  2281.  
  2282. /********************************************/
  2283. roomrec[49].W.Field1=CL;
  2284. roomrec[49].W.Field2=ML;
  2285. roomrec[49].W.Field3=FL;
  2286. roomrec[49].W.Field4=EMPTY;
  2287. roomrec[49].W.Field5=FR;
  2288. roomrec[49].W.Field6=MR;
  2289. roomrec[49].W.Field7=CR;
  2290. roomrec[49].W.floor=0;
  2291. /********************************************/
  2292.  
  2293. /********************************************/
  2294. roomrec[50].N.Field1=CF1;
  2295. roomrec[50].N.Field2=CF2;
  2296. roomrec[50].N.Field3=CF1;
  2297. roomrec[50].N.Field4=CF64;
  2298. roomrec[50].N.Field5=CF1;
  2299. roomrec[50].N.Field6=CF2;
  2300. roomrec[50].N.Field7=REG_MED_CLOSE_FILL;
  2301. roomrec[50].N.floor=1;
  2302. /********************************************/
  2303.  
  2304. /********************************************/
  2305. roomrec[50].S.Field1=CF2;
  2306. roomrec[50].S.Field2=CF1;
  2307. roomrec[50].S.Field3=CF2;
  2308. roomrec[50].S.Field4=CF64;
  2309. roomrec[50].S.Field5=CF1;
  2310. roomrec[50].S.Field6=CF2;
  2311. roomrec[50].S.Field7=CF1;
  2312. roomrec[50].S.floor=1;
  2313. /********************************************/
  2314.  
  2315. /********************************************/
  2316. roomrec[50].E.Field1=CL;
  2317. roomrec[50].E.Field2=MF3222;
  2318. roomrec[50].E.Field3=MF1621;
  2319. roomrec[50].E.Field4=MF642;
  2320. roomrec[50].E.Field5=MF1622;
  2321. roomrec[50].E.Field6=MR;
  2322. roomrec[50].E.Field7=CR;
  2323. roomrec[50].E.floor=1;
  2324. /********************************************/
  2325.  
  2326. /********************************************/
  2327. roomrec[50].W.Field1=CL;
  2328. roomrec[50].W.Field2=ML;
  2329. roomrec[50].W.Field3=FL;
  2330. roomrec[50].W.Field4=EMPTY;
  2331. roomrec[50].W.Field5=FR;
  2332. roomrec[50].W.Field6=MR;
  2333. roomrec[50].W.Field7=CR;
  2334. roomrec[50].W.floor=1;
  2335. /********************************************/
  2336.  
  2337. /********************************************/
  2338. roomrec[51].N.Field1=CF1;
  2339. roomrec[51].N.Field2=ML;
  2340. roomrec[51].N.Field3=FL;
  2341. roomrec[51].N.Field4=EMPTY;
  2342. roomrec[51].N.Field5=FR;
  2343. roomrec[51].N.Field6=MR;
  2344. roomrec[51].N.Field7=CR;
  2345. roomrec[51].N.floor=0;
  2346. /********************************************/
  2347.  
  2348. /********************************************/
  2349. roomrec[51].S.Field1=CL;
  2350. roomrec[51].S.Field2=CF1;
  2351. roomrec[51].S.Field3=CF2;
  2352. roomrec[51].S.Field4=CF64;
  2353. roomrec[51].S.Field5=CF2;
  2354. roomrec[51].S.Field6=CF1;
  2355. roomrec[51].S.Field7=CF2;
  2356. roomrec[51].S.floor=0;
  2357. /********************************************/
  2358.  
  2359. /********************************************/
  2360. roomrec[51].E.Field1=CF1;
  2361. roomrec[51].E.Field2=CF2;
  2362. roomrec[51].E.Field3=CF1;
  2363. roomrec[51].E.Field4=CF64;
  2364. roomrec[51].E.Field5=CF1;
  2365. roomrec[51].E.Field6=CF2;
  2366. roomrec[51].E.Field7=CR;
  2367. roomrec[51].E.floor=0;
  2368. /********************************************/
  2369.  
  2370. /********************************************/
  2371. roomrec[51].W.Field1=CL;
  2372. roomrec[51].W.Field2=ML;
  2373. roomrec[51].W.Field3=FL;
  2374. roomrec[51].W.Field4=EMPTY;
  2375. roomrec[51].W.Field5=FR;
  2376. roomrec[51].W.Field6=MR;
  2377. roomrec[51].W.Field7=CF1;
  2378. roomrec[51].W.floor=0;
  2379. /********************************************/
  2380.  
  2381. }
  2382.